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ABSTRACT 


Font definitions of 1377 characters of various styles 
developed by Allen V. Hershey were used as an initial data 
base. His character cefinitions were first out into a form 
suitable for use by vector graphics display processors, and 
then these vectors were converted into dot matrix form in a 
variety of point sizes. This conversion and digitization 
process was done using the C programming language; the host 
computer was a PDP-11/50 with the UNIX operating system, and 
the computerized typesetting was done on a VERSATEC 1200-A 


rounter/olotter. 


As a result, a large data base for use in computerized 
typesetting has been developed. In addition, the computer- 
ized typesetting system at the Naval Postgraduate School has 
been improved and adapted to make use of the large number of 


fonts now availaole. 
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I. INTRODUCTION 


A. BEGINNINGS 


Early in the 1960's, as comouter technology began to 
develoo more and more raoidly, the influence of computers 
expanded into many new areas. As computers became more  so- 
phisticated, more available, and easier to use, many dif- 
ferent groups began to search for computer applications 
within their fields. One field in which several uses were 


found for computers was in the publishing industry. 


Early systems used by newsoaper and book publishers in- 
volved various methods for character generation and mechani- 
cal positioning of those characters; while these systems 
were faster than typesetting by hand, they still left room 
for considerable improvement. Current systems electronical- 
ly generate and oosition their characters, greatly improving 


the speed of the process. 


In his recent book on the subject of electronic composi- 


Ata N. Edward Bera states that: 


Although the effort to set type by computer has been 
underway since the early 1960's, it has not yet reached 
the age of maturity.... Many exciting new developments 
have already taken place which are but a prelude to what 
will unfold in the future. Proper computerization of 
typesetting now offers very significant cost advantages 
aver hot metal.... 





A technology (that of computers) and a technological 
art (that of typesetting) are being blended together in 
a way that is particularly challenging to the computer 
technoloay since the typesetting art must be maintained. 
The computer must assist the art--not dictate or attempt 
to eliminate it. 


P d 


When two disciolines come together there is always a 
need for good communications and standardizations -- 
Standardization not in terms of the art or expression, 
but in terms of electronic techniques. The development 
of these standards allows an orderly aoplication of com- 
puter technology and will not detract even minutely from 
the needs of the art and free expression. 


The computer technology will not replace creative 
human expression but wil? enable that expression to have 
enlarged horizons, and leave the mundane and repetitious 
Mor the comouter. (Ref. 3, o. viil 


eye EVOLUTION 


In addition, Mr. Berg also mentions a "generation" clas- 
sification which was ceveloped to create a rational subdivie 


won Of machines into classes as follows: 


l.e. First Generation. Machines evolved from their hot 
meta) ancestors but adapted to the photographic pro- 


CEST. 


O. Second Generation. Machines not evolved from previ- 
OUS concepts embodiea in hot metal machines but based 
on the new technoloay of setting type from photographic 


masters. 


3. Third Generation. Machines designed to work in con- 





junction with comouters at high speed ( greater than 
100 characters per second ) and expose the character 


image via a cathode ray tube (CRT). 


Since the early experiments with computerized typeset- 
tino, the computer has played a more and more important part 
in the process. The main direction of this paper has been 
to provide these "third generation" machines with a large 
collection of type styles in a variety of sizes. Une of the 
largest data bases available was that digitized by Allen V. 
Hershey in 1967. However, this data was available only in 
vector form and current araphics display processors and 
tyoesetters usually require information for their character 


displays to be in dot matrix rather than in vector form. 


The first step in the conversion process involved obs 
taining the raw data base, and then converting into a form 
that was usable for generating the appropriate vectors. 
This process is described in Aopendix C. An interesting 
by-product of these initial efforts was the program written 
for use on the TEKTRONIX 4014 display Processor and 
described in Appendix D. This program allowed the user to 
select a particular font and then to draw a character from 
that font on the CRT; the appearance of the characters al- 
lowed the verification of the VEO dat base, and provided 


a check on procedures used to that point. 


After the data base was confirmed, the next step was the 


conversion of the vector data into bit patterns that would 
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allow the use of these fonts in a dot matrix environment on 
raster scan CRTs. The goal was to produce a program that 
could convert a standard size vector definition of a charac- 
ter into a dot matrix definition in the size desired by the 
user. Anyone using this program gained access to the 
Hershey data base anc increased the character set available 


for his use by a significant amount. 


The next sections provide the background on some early 
experiences with computerized typesetting and on some 


current methods used by "third generation" machines. 


C. FONT FUNDAMENTALS 


A font is a collection of different characters, all of 
the same style and height, which are mapped onto a character 
AO the PDP=-11/50, the 7-bit ASCII set of 128 character 
codes is used. Some fonts have generic names, such as the 
Bodoni fonts; others have lost their origins but are named 
for their apoearance, like the Gothic English fonts. Some 
fonts are recent creations, and have received more mundane 
names; SATL10, for example, is a 10 point font created at 
mmen Stanford Artificial Intelligence Laboratory (SAIL). The 
most useful fonts are those that contain both upper and 
lower case English letters, Araoic numerals, and a minimal 
set of punctuation marks. The more exotic fonts contain 
mathematical symbols, characters from foreign languages, 
and, occasionally, homemade symbols for very special pure 


Pe se S . 


li 








Some characteristics of fonts which should be mentioned 


before proceeding are: 
hee Character width 


A font is either fixed or variable width. When a 
font EE e De Ee each character, whether 1t 1s a 'M' or 
an "ile will have the same widths. In a variable width 


font» on the other hand,» each character may have a unique 


Ggoth 
2. Typeface 


Fonts are generally classified by tne style of the 
typeface used. Bodoni, Nonie, Complex, Triplex, and so on, 


are typical examples of styles. 


3. Size 


~ 


Together with typeface, size makes up one of the 
most noticeable characteristics of a font, and provides one 
of the most useful methods of classification. Font size is 
most often referred to in "point" size, a measure of the 
font's heiaht. A point is a traditional printer's measure, 
and is aoproximately 1/72 inch. On the VERSATEC, the unit 
of measure used is the pixel, the smallest unit of resolu- 
tion possible on the machine. The picture element (pixel or 
pel) is 1/200 inch, about four times the resolution of most 
CRTs. At 200 pixels per inch, point size and raster height 
may be converted using the following formula : 


Fasten height = (ooint size * O.8) + ! 
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One character width of pixels represents one raster line 
holding the "ls", which are dots which must be black, and 
the "0s", which are blank spots; together these binary die 
gits make up a horizontal slice of a character picture. The 
character's height is determined by the point size that is 
required, and the widths are proportional to the heights. 
Apoendix F contains a more complete description of font and 


character dimensions. 
4, Style 


Fonts that use the same typeface may aocear dif- 
ferent because they have been altered slightly, a standard 
font may be regular, it may be slanted to the right (1tali- 


cized), oc aint may be thickened (bold face). 


EARLY COMPUTERIZED TYPESETTING 
1. Phototypesetters 
ER Background 


Early in 1961, Michael P. Barnett, the Director 
ne Cooperative Computing Laboratory (C.C.L.) at the Mas- 
sachusetts Institute of Technology, encountered a tape- 
operated Pphototyoesetting machine and became interested in 
the possibility of producing operating tapes for these 
machines from the output of a digital computer. Early pro» 
gramming efforts produced some interesting results, but none 


that were especially useful. Following the award of a 





EE EE n 1962, however, the staff at the C.C.L. was 
enlarged and a system of computer programs was completed. 
These programs were used in 1963 and 1964 to set many hun- 
dreds of pages of material for a variety of reports, papers, 
pamphlets, and other publications of interest to Mr. Barnett 


and his staff. 
Oo. "Equipment 


The equipment used at the C.C.L. included an IBM 
709/90 computer with 32k of memory which produced output 
tapes for a PHOTON 560 phototypesetter. Text material was 


prepared for the comouter using a FRIDEN FLEXOWRITER. 


The FLEXOWRITER had a conventional keyboard and 
produced copy that had the appearance of standard typewrit- 
ten materials the type was in a single NO and size, 
and lines were not justified. A paper tape punch unit was a 
part of the FLEXONRITER, and striking any key on the key- 
board, whether it was a printing key or not, caused a Datz 
tern of holes to be punched in the tape and then the tape 
was automatically advanced. The paper tape was then run 
through the digital computer to translate the 8-bit FLEXO- 
WRITER codes into bit patterns on magnetic tapes that could 
be used to control the pnototypvesetter. These input tapes 
were usually internally coded to select type fonts, type 
size, and so on, in much the same way that input to current 
text processing systems or text formatters such as TPS (Ref. 


Mana! NROFF [Ref. 7] is done. 
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The PHOTON machine operated using a glass char- 
acter disk, a small electronic flash units a lens turret and 
prism, and a disk level selection cam. Each glass disk con 
tained photographic negatives of 1440 characters arranged in 
eight concentric rings of 180 uniformly spaced characters; 
the disk rotated in a vertical plane in front of the flash 
unit, and the spindle in which the disk was mounted rested 
in a cradle which could occuoy eight parallel positions. 
Changing the position of the cradle with the cam moved the 
disk a small amount in the vertical plane; as the ring of 
characters moved past the flash unit, the unit flashed at 
the appropriate character and the image of that character 
was focused onto the film passina beneath the typesetter, 
Different disks were used to provide the different type 
fonts required, and type size was changed by rotating the 
lens turret to change the size of the lens. The film was 
then cut into pages and printed usina standard offset print- 


ing techniaues. 


C Lessons Learned at M.I.T. 


As personnel at the C.C.L. gained experience in 
computerized typesetting, the advantages of that system be- 
came obvious. First of all, tape-operated typesetting 
machines could set computerized output more rapidly than hue 
man operators could, and it could be done without the inter- 
vention of keyboard operators and the inevitable human ere 
rors that occur. Computers could also sort, updater, and 


perform other clerical operations on almost any form of in- 
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put. Computers were also used to simplify the keyboard work 
involved in setting type from a manuscriot by introducing 
typoaraphical details and styles that did not force the key- 
board operators to attend to the smallest details as they 


had had to do when using conventional techniaues. 
2. Hot Metal Machines 
a. Backorouno 


In the miadle 1960's, the interaction of comput- 
ers and various typesetting devices was gaining more and 
Me attention in the publishing industry. Computers were 
being installed in typesetting environments for use in the 
newspaper and book publishing industries. As early as July 
of 1963, several newspapers had begun to use computers for 
production ourposes. THE WASHINGTON STAR, for example, used 
their general purpose computer for normal hyphenation and 
justification of news copys and also expanded its use to 1n- 
clude the generation of volume and production statistics and 


emer accounting functions. 
b. Equioment 


Using an IBM 1620/1 with 4OK of memory and a 
1311 disk file, the WASHINGTON STAR was able to run an ap- 
plications program that accepted internally coded input and 
that could justify every typeface size and line width that 
their linecasting equioment could produce. The computer 


stored the widths of the brass mats and the lenaths of space 
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band travel; as each character was read by the computer», its 
brass width was subtracted from the previously set line 
lenath. This continued until the line was within justificas 
tion range. The computer then searched to see if the next 
word space fell within range; if it did, then the line was 
filled and sent to the appropriate punch. If the word space 
was too long, the computer could attempt to insert extra 
fixed space  inter- or intra-word, depending on the desired 


hyphenation freaquency. 


The pacer used their disk files to store both 
type sizes and widths and to store their hyphenation dic- 
tionary; when the justification routine could not work, then 
the hyphenation routine was called. THE WASHINGTON STAR 
maintained an extensive hyphenation dictionary and a set of 
programs that attempted to hyphenate any words not located 


Me dictionary. 


Cs Exoansion and Develooment 


Because justification and hyphenation took up 
very little of the computer's time, THE WASHINGTON STAR also 
used their computer to provide production statistics, to 
schedule linecaster operations, and to gather statistics for 
editors and compositors to helo them balance their presenta- 
tion of the news and to helo them lay out the paper. In ad- 
dition, they had comoleted the development of a program that 
enabled them to take wire service copy as input, run it 


through the computer to store it and reprint Vt and then 


I| 





Br the computerized orint-out of the storys the stored 
\ 

version was then re-edited and sent to the linecasting 

routine. That method eliminated the need to cast a dummy 


page that would then have to be broken up and re-cast after 


eduting. 


In addition to wire service editing, THE MWASH=- 
INGTON STAR also used the same keyboard and computer to out- 
put photo-composed disolay advertising using a program 
developed by IBM and THE MIAMI HERALD. THE WASHINGTON 
STAR's tse oftheir computer for "hot metal" typesetting and 
for peripheral accounting and editing tasks demonstrated an 


effective use of the equioment available at the time. 
3. Computer Generation of Characters 


Most early uses of computers in typesettina in- 
volved computer generation of code to drive either a photo- 
typesetting machine or a "hot metal" linecaster. These 
processes generally used commands embedded within the text 
to be printed. These commands performed such functions” as 
selectina tyoe font and size, and positioning the characters 
on the outout medium. In the late 1960's, interest grew in 
increasing the capabilities of computerized typesetting; 
there were usually severe limitations on the character sets 
available to comouter output devices, normally line 
printers, but tyoograchers had a wide variety of type styles 
and sizes to choose from. What was needed was a system that 


would make the advantages of tyoography available to the 
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comouter; Such a system would combine the speed of the come 
outer with the versatility of the linecaster, and would make 


the result available to both machines. 


In 1967, Allen V. Hershey, a mathematical physicist 
at the U.S. Naval Neapons Laboratory in Dahlgren, Virginia 
developed a set of 1377 occidental characters and hundreds 
of oriental characters by hand using only graph paper to aso 
sist his work (Ref. 16]. He also developed FORTRAN typoe 
Graphic and cartographic systems that used his character lie 
brary to compose finished pages of text, maps, drawings, and 
mathematical equations. This was one of the earliest ef- 
forts made to use the comouter to take over the functions 
formerly performed by slower mechanical devices», so that 
character generation and position could be handled at 


computer soeed. 


IMPROVED COMPUTER TECHNIQUES 


iR; Introduction 


None of the "generations" of typesetting machines 
mentioned earlier is now totally distinct, since even the 
simplest devices in use today may host a mini-computer or a 
mlicro=computer. Therefore; the general opinion is that 
machines should now be classified based on the techniques 
used to store a master character and to generate that char- 
acter for recording on the output medium. The classifica- 


tions used are: 
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meremetogracmic/Gctica!l ( Photo/Optic ). 


EE otoographic/Scanning ( Photo/Scan ). 


SDi gital/Scanning € Digital/Scan ). 


These classifications include the various graphics display 
terminals and CRT terminals familar to most people who use. 


or who have seen computers. 


The Photo/Optic method is fairly well known; it is 
the oldest of the three and was the method used by both the 
Cooperative Comouting Laboratory at M.l.T. and THE WASHING- 
TON STAR in their offset printina procedures. The two 
"Scanning" methods are less well known and generally consist 
of aenersting dots or lines on an output medium using a CRT 
or some kind of drum and liaht arrangement. The CRT is 
perhaps the most familar and its use involves generating a 
narrow beam of light and then deflecting the beam so that it 
will illuminate a very small area on the screen of the CRI. 
As some areas are "turned on" against a dark background», the 
character or pattern desired can be displayed on the screen 


as a Got pattern. 


PP Rhoto/O0ptic Machines 


This category includes the majority of phototyoeset- 
ting devices available today. Usually the master character 
is stored photographically and is then generated optically 
for recording on the outout medium. Most devices store the 


master characters for various fonts 1n negative form, since 
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the character must be illuminated after it has been select- 
ed. As it is illuminated, the ootical system, using a 
variety of lenses, can produce the required point size and 
position the character image on the output medium. The 
Gmoaavantage inherent in this system is the mechanical move- 
ment required to position the characters and pages; this 
movement is very slow when compared to the speed with which 
characters can be selected and generated, even when the 
mechanical equipment is operating at its fastest. Even the 
character selection and generation is slow when compared 
with a fully computerized system, since this system must 
still use some kina of mechanical apoaratus to select the 


characters. 


3. Photo/Scan Machines 


These machines again store the master characters 
photographically, but they generate the selected character 
usinq a dot or line generating mechanism to record the char- 
acter on the output medium. These devices operate much like 
Photo/Optic devices until the outout stage is reached} from 
that time on, Photo/Optic devices treat the character as a 
unit and Photo/Scan devices treat the character as a collec- 
tion of "scan lines" which are built up to form the complet- 


ed character. 


The character is built up on the output medium using 
a Series of closely spaced lines or dots which together form 


the character, usually using a CRT and an arrangement of 


ei 





mirrors. This speeds up the typesettina process greatly be- 
cause the characters are positioned electronically. Because 
the characters can also be sized electronically, there is no 
time lost while a lens turret is moved to position a dif- 


ferent lens. 
4. Digital/Scan Machines 


Devices in this category store their character sets 
digitally in memory and use a dot or line generating mechan- 
ism to produce the characters on the output medium. This 
method allows the character definitions to be stored as 
binary digits in the computer's memory, Providing rapid ac- 
cess to and display of the character informations however, 
I =S require a large amount of storage for each charac- 
ter, For example, as characters become more complex and/or 
larger, more information about beam positioning and switch- 
nates required. Mr. Berg estimates that "for 100 printing 
characters at 10 point size, approximatelv 8000 le oe! 
words of storage are required...-Only 35 characters at 72 
F Size cən be stored in 8000 (16 bit) words. The pre- 
cise storage requirement is dependent on typefaces, point 


anda character design." (Ref. $5, p. 6:10] 
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ES PENT CHARACTER DISPLAY TECHNIQUES 


Digital/Scan techniques are most familar to computer 
scientists because alphanumeric CRT terminals and most 
graphics display orocessors use this method of character 
generation. Both the DATAMEDIA terminals (1500,1520,2500) 
and the RAMTEK GX-100 [Ref. 9] display processor» for exam- 
ple, use a bank of ASCII characters stored digitally in 7x12 
dot matrices to generate visual displays. Characters for 
these devices all fit within a Sx7 dot matrix and the extra 
dot positions provide spacing between characters and between 
lines. The screen image is renewed 40 times a second; the 
electron gun is moved across the rear of the CRT in a side- 
to-side, line by line "raster" scan, and each individual dot 
is either illuminated or skipped to provide the required 
display. Figure 1 is an example of a character represented 


digitally and suitaole for use by raster scan devices. 
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FIGURE 1. Dot Matrix Representation 
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Another example of a raster scan device used as a graph- 
ics display unit is the CONOGRÄPHIC-12 Interactive Display 
System discussed in Reference 13. This device supports a 
set of printable characters corresponding to the standard 
ASCII character sets standard size characters are drawn on a 
grid measuring 22x16 raster units and situated in the lower 
left corner of a character block measuring 40x24 raster un- 
its. The character Glock determines  inter-column and 
inter-line spacing, normally 85 characters per line and 38 
lines per oaae., Figure 2 provides an example of this tech- 
nique. White the size of the characters on the screen may 
be changed, all characters are still drawn from the standard 


size definition. 


Set 
LI 
FIGURE 2. Character Block 


The VECTOR GENERAL, AGT-10, and TEKTRONIX graphics 
display orocessors are examples of "refresh graphics" 


` 


machines which store character sets diaitally, but which 
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operate differently from the raster scan devices to generate 
visual displays. The VECTOR GENERAL [Ref. 12) is a highly 
sophisticated machine with many interesting capabilities, 
including the ability to draw curves. That capability al- 
lows the VECTOR GENERAL to store information about each 
character in its memory as a sequence of strokes which 
create character shaves. Each character iS composed from a 
set of basic image elements [Ref. 12, p. 1-20), or draw fig- 
ures, and the characters are drawn from these images as a 


series of arcs and vectors using that information. 


In addition, the VECTOR GENERAL can display several 
fonts in four sizes; however, the sizes are ali scaled from 
the standard size character definition, and the only fonts 
available are the standard ASCII character set and a font 
consisting largely of Greek characters ano special mathemat- 


ical symbols. 


The ADAGE display processor (AGT-10) stores and oen- 
erates its character set in a manner Similar to that of the 
VECTOR GENERAL. However, because the AGT-10 does not have 
Circle and arc hardware, all curves must be aoproximated by 


Straight lines. 


Both of these refresh araphics processors must re-draw 
the entire screen image approximately 80 times a second to 


prevent the image from fadina or flickering. 


TEKTRONIX (Ref. 14] disolay terminals (4010,4012,4014) 


are also Digital/Scan machines, but they aiffer in some ways 
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from the other refresh terminals. The character set 1s 
stored internally in dot matrix form, but when the charac- 
ters are drawn on the CRT by the electron gun, the beam il- 
luminates slightly more of the screen than the precise loca- 
tion reauired. Because of that, most characters appear as 
lines rather than as individual! dots. The characters can be 
drawn in four sizes, but each size is based on a common 
character definition which is enlarged to the size 'required; 
the beam from the electron gun is then intensified so that 
an even larger spot is illuminated on the CRI, and the char- 


acters aopear to grow both larger and wider. 
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E OF THE PROBLEM 


A. COMPUTERIZED TYPESETTING AT NPS 


This thesis was undertaken as part of an effort to im- 
prove the computerized typesetting capabilities at the Naval 
Postgraduate School in 1976-1977. Until that times these 
facilities had been fairly limitea and were rarely used. 
The programs used were written in the programming language 
E and were designed to be run under the UNIX operatina sys- 
tem on the Computer Science Department's PDP-11/50 comput- 
er. The documents set in comouter type are produced on a 


VERSATEC plotter/printer. 


The original software to set type under UNIX was 
designed and written by Professor G.L. Barksaale, Jr. and 
was based on four fixed width fonts with common dimensions. 
The information to be set in these fonts was the output from 
TROFF, a text orocessor already available under UNIX. The 
actual tyoesetting was done by another orogram, a virtual 
typesetter. Professor Barksdale had also designed a "font 
editor" that was intended to allow a user to create new 
Bor to modify existing fonts, ina manner similar to 
that used by most text editors. However, this font editor 
was not appropriate for use in the large scale digitization 


ponts. 
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In an attempt to improve this situation, 48 additional 
fonts were obtained from external sources. Ihirty=four of 
these fonts were already in digitized form and as a result 
were limited in point sizes available. They also required a 
great deal of storage in that form. Because the 14 Hershey 
fonts were available in vector form rather than dot matrix, 
they were acquired in the hooves that they could be adapted 
for use in computerized typesetting in a form that required 
less storage. The 34 digitized fonts, for example, required 
643 Sle-byte blocks of storage while the Hershey fonts, 


stored in vector form, required only 193 blocks. 


This thesis was directed toward finding an algorithm 
that would allow the Hershey fonts to remain in memory in 
vector form but convert them to a digitized form ın any 


point size required by the user. 


IN NITIAL CONVERSION 
mee Oriaqinal Format 


The vector definitions of the 14 Hershey fonts were 
obtained from a tape available through the National Bureau 
of Standards [Ref. 16]. The original tape contained approx- 
imately 360K bytes of data representing 8-bit EBCDIC charac- 
ter codes. The tape contained just over 4600 card images, 
where each card image contained a character identification 
number, a card sequence number, and coordinate pairs. AS a 


result, the data was essentially stored as a stream of 


28 





numbers. 


Hershey's original definitions used integers between 
-49 and +49 to reoresent the endpoints of his vectors, with 
a (50,00) coordinate pair representing a "lift pen" command 
and a (50,50) representing "end of character", So that all 
of the coordinate pairs would fit into four bytes, negative 
values were subtracted from 100 and stored as two-digit 
numbers greater than 50 so that they could be differentiated 
from a positive integer. for example, (10,10) was stored as 


"1010" but (710,10) was stored as "9010". 
2. Converted Format 


The initial steps required to read the tape», convert 
the. records from EBCDIC to ASCII, strip away unnecessary 
characters, and so on, are contained in Appendix C. Once 
the input files had been properly prepared, they were put 
into a vector form which made it easier to access the vector 
DONA tions for a given character. Á header table consist- 
ing of 256 1l6-bit woras was established; each even numbered 
word from 0 to 254 corresponded to the appropriate ASCII oc- 
tal codes and contained the character width of the character 
at that code location, while the odd numbered words con- 


tained pointers to the character definitions. 


Within the character definitions, each coordinate 
oair was stored in a word of storage with the x-coordinate 
in the left byte and the y-coordinate in the right byte. 


Even the (50,00) and 050,50) pairs were stored in this 
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fashion rather than as "move/draw" and "endlist" bits in the 
conventions used by some graphics display processors. Since 
each integer used by Hershey could be represented in seven 
bits, the initial inclination was to use a format with the 
X»y Coordinate oairs stored in two bytes, but with six bits 
used for the integers one bit for the sign, and the extra 
bit used for the "move/draw" or "endlist" bits. This would 
have decreased the present storage requirements for a font 
by approximately 25%. That method was not used, however; it 
was decidea that the amount of storage that would be saved 
was not worth the extra effort that would be reauired to 
manioulate the bits satisfactorily. In addition, the time 
would increase slightly, which is only a minor concern since 
this is usually done only once to a font, but the risk of 
introducina or failing to detect errors arising from the bit 


operations would also increase greatly. 
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eee OIGITIZING A HERSHEY FONT 


A. FONT FILE FORMAT 


mime adigitized font files at NPS follow a modified SAIL 
format (Ref. 4] that offers several advantages in memory re- 
Quirements and that is tailored to 16-bit processing. The 
NPS format is disolayed in FIGURE 3 on the next cage. The 
meee DO 16-bit words of each file contain a header table. 
Each of the 128 possible characters in a font has two words 
MONOS table which contain its character width and access- 
ing information. Character 000 octal uses the ge two 
words, character 001 uses the next two words, and so on. 
This arrangement provides an easy character accessing formu- 
la: twice the character code gives the location of the first 
word of information about that character in the header 
table. For each character defined, the first header table 
Contains the character width in the richtmost byte and 
a block counter in the leftmost byte. The maximum character 
width permitted is 255 oixels. The block counter contains a 
number between 0 and 255% it is a file offset in 512 byte 
mocks. The second word contains a byte offset,» an unsianed 
integer between 0 and 65535, which is added to the block 


offset. 


The character definition is accessed by seeking the re- 


zuured block offset, if anys and then seeking the byte 
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FIGURE 3. NPS Font File Format 





offset. Nhen accessing any character, a zero width and a 
zero oointer imply the character is not defined in the par- 
ticular font. The dynamic aspects of the pointer structure 
in the header table allow for individual character accessing 
and for font files up to approximately 200K in size. Howev- 
er, a limitation in the "seek" system call limits the ad- 


dressable storace to approximately 160K. 


This situation is ideal in a minicomputer environment 
where core is limited and where large auantities of data res 
side on direct access devices. The three woras following 
the header table in the font file contain information on the 
font height, on the NEN «t the widest Character in the 
font, and on the logical height of the characters. All di- 
mensions are measured in pixels. An ASCII description of 
the font begins in word 260 and continues until an end-of- 
string delimiter ('N0!) is encountered. No description is 


normally provided with any of the Hershey fonts. 


The remainder of the file is composed of the character 
definitions pointed to by the information stored in the 
header table. Each definition follows the same format, and 
there are no requirements for definitions to begin on word 
boundaries. Each character definition is divided into two 
parts, the character dimensions and the character bit pic- 


ture, as indicated in FIGURE 4, 
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FIGURE 4. NPS Character Definition 
First, there are eight bytes which hold the raster width, 
left kern, rows-from-top (rft), and the data-row-count 
(drc). These terms are defined in Appendix F. Next, a por” 
tion of the character picture is stored in consecutive 
eS) raster line by raster line. Bits that are "on" (1's) 
I pt space to be inked in, and bits that are "off" 
(0's) represent white space. Each character in a font is 
conceptually set in a rectangular frame which 1S aS wide as 


the character's raster width and as high as the font's 
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height; hence, a great many characters have blank raster 
lines close to the top and near the bottom of the frame. 
These blank raster lines are not stored in the character de- 
Pomme tion. While the rft defines the number of blank lines 
at the character top, the dre specifies the number of  non- 
blank raster lines stored in the definitions, and the number 


of blank lines at the bottom is computed. 


As an example, the process which "edf" would perform to 
display a character would be to access the character defini- 
tion through the header table and to read in the four char- 
acter dimensions. Now» 1f, for example», the raster width was 
17, then 3 bytes woulo be required to store a single raster 
line, the third byte having its rightmost 7 bits wasted. The 
next three bytes hold the next raster line, and e EE e E 
"Edf" must display a number of blank lines equal to rft. It 
must then read and display the nonblank raster lines stored 
in the definition, and, finally, "edf" completes the picture 
by filling out the character height with blank lines. This 
process is similiar to the Stanford method. A more detailed 
explanation and some statistics can be found in Reference 6 
and Appendix A. Appendix F illustrates character dimensions 


in more detail. 
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B. THE DIGITIZATION ALGORITHM 


The digitization algorithm used was based on the stan- 
dard slope/intercept formula for a lane, y= mkx +b. 
After determining the logical too and bottom of a character, 
the end-points of each line in the vector definition were 


read into the program and the slope and intercept were 


determined. Then the line was scanned from top to bottom 
and from one side to the other using a "for" loop within a 
EU loop. These integer values were converted to floating 


point with an assignment statement; if those values were 
within the required tolerance of the line being scanned, 


then that unique bit was changed from 0 to l. 


C. CONSIDERATIONS 
1. Storage Requirements 


An important consideration in designina the computer 
typesetting system was the amount of storage that would be 
reouired to hold the oigitızed fonts. All of the vector de- 
finitions, for example, were in the 5-7K bytes range; the 
comparative figures in Aopendix B reveal that a 10 point di- 
gitized font requires aporoximately that much storage. At 
smaller point sizes less storage iS required for digitized 
Memes than for the vectors, but as point sizes increase the 


storage requirements rise dramatically. 


To minimize the storage requirements, all programs 


designed for this system used the convention mentioned in 
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paragraph A, where only the rows actually containing data 
were stored in memory. All rows containing zeros were added 
by the various programs as they executed. This technique 
reduced the storaqe requirements significantly, especially 
where most punctuation and lower case letters were con- 


cerned. 


In addition, only one array of 4K words was used to 
hold each character individually as it was being digitized; 
this size allowed the digitization of the largest characters 
allowed, but was considerably smaller tnan an array that 
would hola the entire font durina digitization would have 
been. As one character was completed, its bit picture was 
written to the designated file and the array was zeroed out 
in preparation for the next character. After the last char- 
acter in the font had been digitized and written out, the 
blank (octal 040) was added to the font and the header table 
was written at the front of the file. This method used a 
minimum of storage, since only 519 extra bytes (used as a 
place-holder for the header table) were stored at any one 


time. 
ee Sizing 


Every effort was made to make all necessary vari- 
memes proportional to the size of the font being digitized. 
Since Hershey's vector definitions were equivalent to a 10 
point font, that raster height (29 pixels) was used as a 


base for determining the proocortionality constant for modi- 
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fying the widths of the characters approoriately. 


Two steps were necessary to determine font and char- 
Beer neights. First, the tallest upper case letter and one 
of the lower case descenders were scanned to obtain a base 
line and a logical height for the font. Then the largest 
characters in the font were scanned to determine a constant 
which would adjust the character heights to fit the desired 
raster height. The logical height and base line were ad- 
justed by this amount, and the program could begin the dic 


gitization process. 
3. Programming Techniques 


One imoortant consideration was to be able to aa- 
dress locations in memory up to the maximum font size al- 
lowed. Since even a "char *pbtr" declaration allowed only 
65K  adaressable bytes and permitted the possibility of the 
left-most bit being interpreted as a sign bit in arithmetic 
operations, the address pointer was declared as a long in- 
teger. The 32 bits were mot all necessary because other 
limitations allowed the use of only 18 bits, but it did 


prevent unusual occurrences during mathematical operations. 


Shifting operations were done in many places ratner 
than a normal arithmetic operation, especially where the 
lona integer was involved, for just that reason. Some bit 
masking was also necessary, normally to prevent a sign bit 


from propaqating across a byte. 
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Gy Types of Lines 


After the slope of a line was determined» the execu- 
tion flow carried the line into four possible sections of 
code. Because of the wav that the algorithm was arranged, 
1t was necessary to treat vertical lines, horizontal lines, 
and lines with positive or negative slopes each somewhat 


differently. 


It was difficult to arrive ət a oroup of tolerances 
for lines with different slopes that would allow the lines 
to mesh smoothly to form a character. These tolerances were 
used to determine whether or not a particular bit in the 
character picture lay close enough to the line being digi- 
tized to be switched from 0 to 1. A step function was used 
to determine the tolerances to be used for lines with slope 
values between certain limits; as a result, there is Some 
overshoot at points where slopes change enough to pass from 


one set of tolerances to another. 


At first», nearly horizontal lines near the tops and 
bottoms of curved characters (0, Q, C, etc.) tended to eis 
ther overshoot significantly or to vanish completely. Then 
Roc ont al and vertical lines arew out of proportion to the 
rest of the character. Some of these problems are illus- 
trated in FIGURE 5. Eventually, the characters became more 
and more recognizable. The method used to smooth out the 
digitization involved studying the characters digitized with 


one set of tolerances with "edf", then graphing the charac- 
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ter from the vector definitions deciding how much tolerance 
was required for slope values between certain limits, and 


beginning the loop over. 


K pa IAE —/01 24 
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FIGURE S5. Problems in Digitization 


Horizontal anc vertical lines tended to grow thicker 
when digitized, so their widths were reduced programmatical- 
ly by approximately half. The tolerances necessary for 
these lines were approximately one-half those of the tight- 
est tolerances used for slopina lines. Sloping lines had to 
be thickened by the same means, but even here there was a 
difference; lines with a slope that was very close to hors 
1zontal required an even laraer assist than did other lines. 
Lines with slopes between 0.5 and -0.5 (nearly horizontal) 
required very tiaht tolerances to keen them from thickening 
excessively, while lines between 0.5 and 3.0 and between 
-0.5 and -3.0 received somewhat larger tolerances. Lines 


meen slopes from 3.0 to 7.0 and from =3.0 to 77.0 were 
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essentially left alone, but lines with slopes areater than 
7.0 or less than -7.0 (nearly vertical) required very loose 


tolerances. 


In general, characters such as "A", "M", "Z", and 
others that were essentially composed of straight lines, no 
matter what their slopes, transitioned from vector to raster 
form clearly and were very clean. This resulted largely be- 
cause the same tolerance was used by the algorithm 
throughout the line and the character. In other words, 
there were very few breaks in the continuity of the lines 
that defined the character. There were minor problems such 
as notching in the base of the "M" or in the point of the 
"A" and a thickening in the right foot of the "A" and the 
"X"; these were not immediately obvious, especially at point 


sizes that would normally be used for tynesettina. 


Mans ters such as. en "g", "c", and others 
that required the use of many small lines to approximate 
curves were usually raaged in places after digitization. 
Because different tolerances were used on lines that were 
linked», the effect was not as smooth as it was for the 
Straight line characters. As a results characters of this 
type sometimes appear somewhat ragged, especially at larger 


point sizes where this effect is easily discernible. 
Sa Floating Point 


Floating point arithmetic was used extensively in 


the digitization process. Nhile this made the proaram 
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slightly slower, it had been decided beforehand that float- 
ing point was necessary to achieve the accuracy required to 
prevent holes or extraneous lines and bits from appearing in 


the dot matrix. 


eee LIMITATIONS 
1. Time 


One of the lesser limitations imoosed upon the user 
in this area iS the time required to digitize a Hershey 
font. While the time required sometimes seems out of Gros 
portion, especially with larger or more comolex fonts, many 
of the reasons for this seeming slowness have been exolained 
previously. In addition, the time required to digitize the 
largest fonts possible is still on the order of approximate 
ly 15 minutes at the worst. The times can be improved by 
digitizing fonts at times when system usage is low, and by 
myartizing fonts only once and storing them between uses. 
This should be the normal mode of operation when using 


Hershey fonts. 
2. Apoearance 


The appearance of most fonts at larger sizes has al- 
ready been discussed to some extent and a comparison of the 
Duplex Roman font at 10, 20, 30, and 40 point sizes is 
available in Appendix BR. On the whole, the program will di- 
gitize fonts fairly well uo to the size limitations dise? 


cussed itn the next section. Fonts with more vectors in the 
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character definition will not be as ragged as those with 


only a few lines. 
3. Size 


An initial design decision was made to limit the 
fonts to a raster height of 255 pixels, which is equivalent 
to 91 point. As a result, the array declared in "makehf" to 
hold each digitized character definition as it 18 converted 
memaesiqned to hold one character 255 pixels high by 255 


pixels wide at its maximum. 


An additional constraint is imposed by the structure 
of the font files. Because the character width and a block 
count, if present, each occuoy a byte, the maximum value for 
the block counter is 255. As the block counter approaches 
meat figure, specifically at 253 blocks, the program will 
switch modes and use the same block counter from that point 
on, but the byte counter will be reset and will increase up 
07655355, This will permit the user to approach 200K bytes 


mor the digitization. 


The size of a character that can be edited by the 
font editor is arbitrarily set at 42 point, the size of the 
largest already digitized font available, SIGN41. There- 
fore, Hershey fonts larger than this can be created, but 
they cannot be edited. However, they are still usable by 


atont" and “signmkr". 





TEC ONCLUSIONS 


COMPUTERIZED TYPESETTING SYSTEM 


The initial computerized typesetting capability at NPS 
has been expanded considerably as a result of thesis efforts 
described in this oaper and in Reference 6. Scecifically, 
48 variable width fonts in a variety of sizes ano styles 
have been added. These efforts are incomplete in that a 
virtual typesetter that sets variable width fonts has not 
yet been ERES however, an additional program has 
been written which will set these fonts and which performs a 


memrted number of text formatting functions. 


At the present time, this exoanded typesetting system is 


designed to use four programs. The user has "edf" and 
"makehf" available to create or modify fonts, and "prfont" 
and "signmkr" are available to display his efforts. The 


font editor, "edf", has been expanded and modified consider- 
ably; me is documented in Appendix A. The program 
"makehf", which is described in the previous chapter, was 
the end result of the author's thesis efforts and provided a 
Substantial contribution to the increased capability of the 
NPS computerized typesetting system. This program allowed 
the user to convert Hershey's vector definitions into dot 
matrix representations that could be used by the computer; 


these definitions could be converted to a variety of sizes, 





subject only to a few limitations. 


The display routines developed for the system, "prfont" 
and "signmkr", are described in Aopendix D, together with 
mmervector disolay routine "drawhf". "Prfont" is designed 
to display one font at a time by examining the header table 
and orinting all defined characters in the desired font. 
"Signmkr" iS more sophisticated, and allows the user to 
specify a limited set of text processing commands to set 


type to his specifications. 


B. ADVANTAGES/DISADVANTAGES 


1. Advantages 


The adaptation of the Hershey fonts for use in Come 
puterized typesetting has improved both the quality and the 
variety of fonts availaole for use. It is now possible for 
a user to access more elaborate fonts, or to access fonts in 
several different alphabets. These could now be used for 
Special purpose applications or for accenting or highlight- 


Mia standard orintino applications. 


This scheme also allows the creation of fonts at 
larger sizes than are available through the SAIL set. The 
algorithm holds uo well at large sizes for most fonts and 
leaves very few holes, especially on Triplex or Gothic fonts 
where a large number of vectors are used to make up the 


character definition. 


qS 


For most purposes, the Hershey fonts "digitize exe 
tremely well. There are usually only a few holes, even at 
very larae point sizes» in most fonts. They tend to break 
up at 8 point or smaller (due to pixel size). Apove 50 
point (because of line spread) some small extraneous lines 
may appear. In the range that would include most normal 
uses the digitized Hershey fonts are serviceable, with the 


exotic fonts looking especially good. 
oO. Disadvantages 


The vector digitization method has several disadvan- 
tages over and above the current lack of a virtual 
typesetter previously mentioned. First of all, it is slow, 
especially for larger and/or more complex fonts. Therefore, 
it is not suitable for on-line digitization of individual 
Characters. However, this is easily overcome by deciding 
beforehand which fonts will be required and then digitizing 


them before beginning the tyoesetting process. 


Secondly, the alaoritnm is somewhat inefficient. A 
large portion of the overhead is incurred through the use of 
floating point arithmetic and this was deemed necessary. 
However, Some time is also lost in array accessing; the 
Conversion from arrays to pointers could increase the digit- 


ization speed somewhat. 


In addition, the algorithm begins to leave holes in 
the digitization as fonts become extremely large. An excep- 


tion is the Duplex Roman font, which begins to break up at a 
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very small size because of the arrangement of its component 
vectors. In general, this is not a significant problem with 


most fonts. 


Meee PERFORMANCE EVALUATION 


1. Testing the Algorithm 


To determine which parts of the algorithm required 
the most execution timer an execution profile was run on the 
program under a variety of conditions. A "monitor" system 
call was inserted into the beginning of the digitization als 
gorithm so that the entire program could be profiled, and 
the program „as then compiled using the shel! command "cc -c 
EU -5 makehf.c"; the object file resulting from that com- 
meme was loaded using “Id /lib/fert0.0 makehf.o -7la -lc". 
Mme 3.out” file produced by the load was then used to digi- 
tize the Simolex Roman font at multiples of 10 points 
between 10 and 79 points. These profiles provided the test 
data used below; other fonts were digitized for comparison 


ourposed as noted in paragraph 3. 


Ce The Execution Profile 


The execution profile revealed that one section of 
the program reauired, as a minimum, approximately 60% of the 
program execution time. This section consisted of the four 
"for" loop pairs previously described in Chapter III. These 
loops are for horizontal and vertical lines and lines with 


positive or negative slopes. The majority of the floating 
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point arithmetic was used in these loops to scan each line 
ure Character defintion and to turn on the appropriate 


mts in the character picture. 


The table below can be used to compare three quanti- 
ties: the point size of the digitized font, the time re- 
quired to digitize the font to that point sizer, and the to- 
tal time that the program spent in the four digitization 
loops together. The "real" time required to digitize a font 


"user" 


versus the point size is shown is FIGURE 6, as is the 
(CPU) time versus point size. The point size versus percen- 
tage of time spent in the digitization loops is shown in 
BICURE 7. 

% TIME 


spent in Real User System 
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HSROO S uS 4:306 0,5025 
HSR7O Sa 19202.0 o. 14.6 0:55 6 
5. Different Fonts 

Several more complex fonts were digitized at various 

point sizes to determine whether or not the performance of 


the algorithm would be affected. 
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the slopes of the lines were different, the overall amount 
of time spent in those portions of the algorithm remained 
approximately the same. If anything, the total times for 
the digitization loops were slightly less for the more come 
olex fonts than for the simpler fonts; however, the times in 
the "read" portions were slightly higher because more lines 


had to be read in. 
4. Conclusions 


From the table above and the figures, it is possible 
to arrive at two conclusions. One conclusion is that as 
the point size increases, the "real" time required to digi- 
tize the font also increases; this increase is non-linear 
and is very slow at lower point sizes, but begins to ins 
rr ease dramatically EE 30 and 40 point. This reflects 
the time that the user must wait at a terminal for his digi- 
tized font file to be created; a Second time correlation, 
not quite so dramatic as the "real" time required but just 
as imoortant, is the corresponding rise in "user" (CPU) time 
as point size increases. This indicates that ləroer fonts 
incur a non-linear increase in CPU time that is reflected as 


an even larger increase in "real" time. 


A second possible conclusion is that one section of 
the alaorithm contributes significantly to the time required 
for the program execution. The percentaae of time required 
in the digitization looos was never less than 56 and seemed 


to level out at just over 80 for the larger fonts; "f Cms 
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portion of the algorithm could be speeded up the time re- 
quired for digitization, especially digitization of the 


larger fonts, could be improved. 


It should also be noted that as the coint sizes grow 
larger and the percentage of time spent in the digitization 
loops increases, the relative amount of time spent in the 
uU portion of the program decreases until it becomes in- 
consequential at the laraer point sizes. Therefore, the in- 
provement of the digitization process becomes the central 


problem in making the alaorithm faster. 


POSSIBLE IMPROVEMENTS 


ime Better Digitization 


While the present diaitization algorithm is fairly 
effective, 1t could be improved in some places. Procedures 
to eliminate extraneous bits or overshoots that extend out- 
Side of the main character definition, or to detect and fill 
in small holes or odd bits within the character defintion, 


are possible. 


Some of the raggedness and overshooting in curved 
characters may be minimized or eliminated by changing tne 
tolerance function used. If a function that allowed for 
gradual changes in the siope (such as a sinusoid) were used 
in place of the step function currently being used, the ap- 
Proximations of curves could be imoroved and any remaining 


raggedness would be more difficult to see. Rather than use 
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wen a function in the orogram itself, the values should be 


computed once and then put into table form for program uSe. 


An additional alternative might be to use a means 
other than the slope/intercept formula for a line to control 
the digitization. Cubic solines are one possible choice; 
the use of splines should minimize round-off error, and they 
are perhaps better suited for digitizing the curves that 
have presented the majority of problems during this 
research. Since splines provide a smoother fit over sparse 


data, they may be ideally suited to font digitization. 


2d. A Faster Algorithm 


Several means to increase the efficiency of the al- 
gorithm have already been mentioned» including minimizing 
floating point arithmetic, Switching from arrays to 
Fj; ters, and so on. In addition, since the vectors are 
read in one point (two bytes) at a time, one "read" opera- 
tion that brought in the whole character definition would 


somewhat decrease the time required for system calls. 


Zi 


The "for" loops used for digitization are arranged 
so that one goes from the logical top of the character to 
memes bottom, but the other runs from 0 to the font width. 
Since all of the font width is not usually required, this 


Mer loop could scan only the character width. 
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m FONTS AVAILABLE 
le. The SAIL Fonts 


Ihen d digitized fonts were acqutred from the Art1f- 
meee Intelligence Laboratory at Stanford University and 
were converted to a file format compatible with the PDP-11 
Meet. 6l. These fonts were either designed at Stanford or 
acquired by them through the ARPA net from other artificial 
intelligence centers. SAIL fonts use a 7-bit code similiar 
to ASCII; however, the SAIL set uses many of the ASCII con- 
trol codes for additional orintable characters. There are 
Some additional minor differences in character usage. The 
complete SAIL character set is listed in Appendix G with a 
complete listing of all SAIL fonts converted for use at 


NPS, 
2, The Hershey Fonts 


The 14 fonts available in vector form were converted 
for NPS use from a set of fonts created by Allen V. Hershey 
in 1967 (Ref, 16]. These fonts offer several type faces in 
Roman, italic, and script, as well as comolete alphabets in 
Greek and Cyrillic, and in Gothic English, German, and 
Italian. A complete listing of the Hershey fonts is avails 
able in Appendix Er together with sample listings of the 


fonts in digitized form. 


The Hershey fonts are stored in vector form ana are 


not suitable for use by typesetting programs until they are 
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converted to dot matrix form by the user. This can be done 
by using either the Hershey font conversion program "makehf" 
or the font editor. These fonts may be digitized in any 
size desired by the user, subject to some limitations on the 
programs involved. The programs required and their limita- 


tions are discussed in Chapter III and Appendixes A and B. 
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APPENDIx A. FONT EDITOR 


meee USING THE FONT EDITOR 
l. Basic Structure 


"Edf" is an interactive program which allows a user 
to create new fonts or to modify or maintain existing ones. 
It was originally designed by Professor Barksdale to create 
and manipulate the fixed width, 20 x 16 pixel fonts. The 
current version of "eaf" is considerably larger than its 
predecessor, a growth resulting from the addition of modules 
to manipulate the more complex and more dynamic format of 


the new font files. 


Creating a font may be accomplished by one of 
Several means. First, a call to "edf" with no arguments jìn- 
Ses that the user desires to create a font from scratch. 
The user must specify the characteristics of the new font 
then use the "a" (add) command to create specific char- 
acters at each character position. Repeating this process 
for 128 characters can become exceedingly tedious. A more 
efficient option ıS to create only a few new Characters and 
Memtmem use the "uf (include) command to include other char- 
Pers from a compatible font. "Compatible", in this case, 


means that both fonts have identical heights and logical 


heights and that the characters being included are no wider 
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than the maximum character width of the font being created. 
A third option, Somewhat similar to the second, is to use 
the "d" (delete) command to remove unwanted characters from 


a Selected base font. 


To edit an existing digitizea font file, "edf" re- 
quires an argument consisting of either a font file name or 
a complete oath name., In the first case, "URS tomt editor 
assumes that the Font is located on the directory 
"/.fonts.01/font/" anc preoends that strina to the argument 
before issuing a system call to open that file. If a com- 
ee bath name is used, "edf" will open that font file. If 
the font file is missing or if the font file contains in- 


valid informations, then "edf" will exit with an appropriate 


Or message. 


A Hershey font, digitized to any desired size and 
subject to the limitations discussed later, can also be 
PSS (ed using the font editor. This is done by calling 
"edf" with at least one argument. The first argument must 
be of the form "-HXY", where the minus sign informs the edi- 
that it must digitize a Hershey font and "HXY" is a 
valid font from the list of fonts available found in Appen- 
un E. This araument must contain tnose four characters. 
The point size desirec may be input as a second argument. 
The default point size used is 10 point, and the editor can 
SEO to only d2 point. Whether the newly digitized 
Hershey font is written to another directory or not, the 


most recently created Hershey font is normally left on 
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m C tory "/.fonts.01" and is named HFONT. 


Some exƏmples of valid calls to "edf" are listed 


below: 


a) edf 
This indicates that the user desires to create his own 
mont. He may give it any name desired when he writes it 


Out, ending the edit session. 


b) edf SIGNI 
The user wants to edit font file SIGN4G41, which had 
better exist (and SIGN41 does) on directory 


meeronts.0t/font/SIGN41i"., 


epreect /usr/doyle/fonts/HIR4e 
The user wants to edit an existing Hershey font file 
called HTR4e, a Triplex Roman font at 42 point, on directory 


EUsr/doyle/fonts/". 


ae dt HSR2O 
The user wants to edit an existing Hershey font file 
called HSR20, a Simplex Roman font at 20 points on directory 


Mmeerromts.0i/font/". 


e) edf -HGE 36 
The user wants to create a Hershey Front file in the 


Beenie English type at 36 point. He may write it to any 
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directory after it has been digitized. 


mM edf -HCS 

The user wants to create a Hershey foat file in Comolex 
ript type. The point size defaults to 10 point, and the 
font may be written to any directory at the conclusion of 


the edit session. 


In the edit mode, the header table, the font dimen- 
sions, and the font cescription, if any, are read into the 
Mam variables. When a specific character definition is 
required by the program, the bytes containing the dot matrix 
definition of that character are read into a character 
Beurer, and blank lines are inserted at the top and bottom 
of the definition if ,requirede À character definition 
leaves the character buffer and is Out on a linked list if 
it has been modified ourina the current edit session. AS a 
new character definition is reauired, it is read from either 
the font file or from the linked list 1f it has been changed 
previously. Characters which are not defined in the font, 
such as the control characters below octal code 040 in the 
Hershey fonts, or which are non-printable, such as the 
blank, are flagged ana may not be disolayed with the font 


editor. 


Chanaing the current character code will not cause a 
mmorocter definition to be read into the buffer unless it is 
followed by a command which reauires the definition; for ex- 


ample, Ome O56 941)! change the current character cooce, 
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But no definition ıs read into the buffer until a command 


EN" (list) or "e" (edit) is given. 


Once a character has been modified, its new defini- 
tion will not be read from the character buffer to the 
linked list until the current character ıs changed or until 
the user gives the "w" (write) command. An attempt to end 
the edit session without writing out a file containing 
changes will generate one warning. The user must specify 
the name of the file that he is writing to. The editor will 
not allow the user to write to the same file tnat he is 
editing from or to write to “HFONT"; nence, no font file is 
inadvertantly destroyed. The editor writes to the specified 
file, incorporating character definitions from the linked 
list and from the font file, updating the header table as 
necessary. As a final gesture, the editor writes out the 
size of the file in aecimal. Renaming the new font file or 
replacing an old file with a new one remains the responsi- 


Dt y of the user. 


hen using "ecf" it is most efficient to complete 
all desired mocifications to one character before proceeding 


to another. 


2. Commands 


The basic command line consists of three parts: the 
current character selector, the command itself, and argue 
ments, if any, to the command. The current character may be 


considered a pointer to a code position in a font. For exam- 
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ole, when the current character is 0101, then any character 
listing or editing will be directed toward "A" which has the 
code 0101. Whenever a character picture, or a portion 
thereof, is displayed, each raster line is composed of whole 
bytes. For example, if the raster width is 17, then all 3 
bytes required to holo the 17 bits will be displayed. Chang- 
ing the character picture to the right of the 17th bit is a 
superficial change» since modifications made outside the 


raster width are ignored. 


a) <number> 


chameessurne Zeurrent character to <number>. The 
number may be octal (preceded by a zero) or decimal. Any 
number greater than 127 is converted to 0, and anything less 
than 0 is convertea to 127. Any command may appended to 
<number>. The effect is to change the current character 


first and then to execute the appended command. 


Examoles: 0176, 0, 161, / 8c 0 254 163. 


0) +; = 


Increment (decrement) the current Character, ra 
paround occurs as in <number> above. Either <+> or <-> may 
be used but not both on the same command line. Any command 
may be appended to either, and the effect is to increment 


(decrement) the current character first and then execute the 
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" " 


command. Only one "*" or may be used on a command line. 


Examples: tie “°, +, +e, +c0 40. 


c) (<number>]) [+] i [-)a 


Add a new character to the font at the current char- 
acter position. The "a"(add) command is complex. A 
"p"(parameter) command is executed automatically. Follow the 
displayed instructions to input the dimensions of your new 
character. Remember that your new character is being defined 
at tne current character. After exiting the parameter com- 
mand loop, you may use the "c"(change), "e" (edit), 
EDU Sshift), or "I"(list) commands to form the desired char- 


acter picture. The character buffer has previously been 


n " 


zeroed. If you use «number», D SA OT to change the 


current character before you are satisfied with the new 
character picture», the unsatisfactory picture gets stored! 


mrethis happens, list the character and continue. 


Examples: +a, "a, 0563, 19a, 3° 


d) [<number>); (+) ¡ [-])c [<number>]) [<number>] 


Change lines "s" thru "e", prompting for each line, 


E alone sets "s” to 0 and "e" to "heiant-1". "c" followed 


Done number sets both "s" and "e" to that number. "c" with 
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two numbers sets "s" and "e" accordingly. The numbers may be 
octal op decimal, and a space is required between two 


Numoerse 


Examoles: tC, -c0 10, 077c 1 044, Car te 10: 


e) d([<number>] [<number>] [font file] 


Delete characters ws thru. e'. “ad” alone sets s 


to 0 ana "e" to !le7, effectively deleting the entire font. 
"d" with a single number deletes that character code. slo hi 


s" thru "e" imclusive. Numbers may 


with two numbers deletes 
be octal or decimal, and a space is required between two 


numbers. 


F pjes: de d5, d 0176, dO 057. 


f) [<number>] ı [+) } [-Jel<number>] [<number>] 


cities "Ss. thiru "e", promoting for each line. 
"Ss and "e" are set as in "c"(chanqe). While editing a line, 
"entled" completes the line as it was. This command uses 


the NPS line-editor functions in the terminal handler. 


Examples: e, 077e0 10, +e 3 5, -e, Og Oud 


uf 
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Moo) a flag controlling the display of 
character dimensions. Once turned on, character dimensions 
are displayed every time a character definition is fetched. 
Displaying is turned off by a subsequent "f", "f" may be 


prepended to any command. 


Examoles: f, fl, +fe 0 10, 0176f1 0 10. 


h) ıl<number>] [«number»] filename 


H 


s" thru "e" from the font file 


Include characters 


"filename". "s" and "e" are set as in the "d"(delete) com- 

mand. If the font file being edited or created and 

"filename" are not compatible, then the include will not oc- 
wen 


cur. Subsequent uses of 1 do not require "filename"; un- 


less, of course», you wish to include from another font file. 


eeameres: i 0 057 BDJ8, i HCS20, i. 


i) [<number>])J] [+]! [-]1 [<number>] («number») 


wst lines ~s" thru "e" of the current character. 


H it H " 


End "e" are set as in "c"(chance). 


Examples: +1 0 10, -], l, 0761, ries 
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j) n 


Display the font description and atable reflecting 
the status of the edit session. The description tells you 
what you're editing, if you've forgotten. The table is a 


handy way to keeo track of how much you've accomplished. 


ample: n. 


k) o 


The "p"(parameter) commana executes an interactive 
module of "edf" which allows you to modify character and 
font dimensions and description. Á set of instructions will 
be displayed and may be recalled if required. This module is 
Quite versatile. Keep in mind that character and font dimen- 


sions are beina changed, not character pictures. 


Example: o 


D aqa 


Quit warns you if you've made chanqes and have for- 
gotten to write them outs otherwise, it exits, closing any 


Seem files. 


Examole: a 
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m) [<number>)¡ [+) + le) sliriuid (<number>] [«number»] 


Shift lines "s" thru "e" one pixel left(1), 
right(r), up(u), or down(d). The resulting lines are au- 


tomatically displayed. s" and "e" are set as in 


me (change). 


Examples: +s10 10, 044su 10, Sr, -Sd. 


n) w filename 


Write out the font file being edited or created to 
"filename". "wl must have a "filename" and will not allow 
you to write to the font file beina edited. "w" displays the 
byte size, in decimal, of "filename" ana then performs a 


"a"(quit). Be oatient! Writing out a font file takes longer 


than writing out a normal file. 


Examples: w temp, Ee EE 


ol <rubout>; <break> 


Either key causes an interrupt which is trapped. 
Whatever was going on is stopped, the previous environment 
restored (the command loop is reentered), and you may con- 
tinue. Neither key undoes”) anything; they merely aive a 


mechanism for killing commands without killing the program. 
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few imitations 


There are two types of limitations to "edf". First, 
there are some commands implemented in the original version 
which are not available in the current version. They ine 
cluded "nice to have" commands such as folding character 
pictures, italicizing fonts, smd producing bold fonts. 
These commands were not included due to time constraints but 
could easily be added in the future. Second, "edf" has not 
had a thorough testina. There are many checks throughout 
the program which were included to detect bad font files and 
wn prevent the program from "crashing". "Edf" is good at 
Screening commands ang at flagaing bad ones. Although it is 


possible to string some commands together on one command 


line, some combinations are bound to produce strange 
results. It is safe to combine commands only as described 
in the preceding section. Despite its limitations, "edf" is 


an extremely useful tool. Dt was developed early in the 
thesis research and used extensively to purge and inspect 


nts. 
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EDF EE EDF 


NAME 
edf -- font editor 


SYNOPSIS 
edf < -Hershey font [point size] > | < SAIL font > } 
< Hershey font > 


DESCRIPTION 
"Edf" is an interactive font editor that provides a 
means of creating and maintaining fonts. If called 
with mo arguments it will enter the "create" mode. If 


Given just the font name» it will prepend 
a tonts.0Ül/font/"., The editor will also accept a 
full path name.  "Edf" also digitizes Hershey fonts to 


a specified point size. 


Because of the size of the buffer used, "edf" can be 
used only for characters below 120 pixels ( 42 point ) 
in size. All of the digitized fonts are less than 
that size, anc the editor will not create Hershey 
fonts over that size. 


Command Summary: 


< number > Change the current character to <number> 
E Increment/decrement the current character 
3 Add a character 

C Change a line 

d Delete a character or a font 

e Edit a line 

f Turn on/off character dimensions 

1 Include a character 

1 List the eurrent character 

n Display the status of the edit session 

p Modify character and font dimensions 

a | Quit, end the edit session 

S sem tS | te). Lu) 3 te) 
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LES 


W write to a file 
<rubout > Reenter the command loop ^ 


<break> Reenter the command loop 


Au tonts.01/HFONT 
/.fonts.01/makehf 
/.fonts.0l/font/«SAIL font» | «Hershey font» 


SEE ALSO 


BUGS 


makehf 


A call to the font editor must contain the correct 
name of the font file desired. No input checking is 
done; the only errors that will be detected are those 
that occur when trying to ooen a non-existant file. 


"Edf" tries to tell you that the Hershey Complex 
Cyrillic (HCC) font has characters at octal codes 000 
and 003, when the characters are in reality at 001 anc 
004, 
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x / 


C#OL<e x / 


x / 


8define error return(1); 


int 
int 
int 
int 
int 
Ent 


int 


Gart 
int 
int 
int 
int 
int 
int 
mnt 


int 
mnt 
int 
int 


Int 
int 
int 
int 


int 
Get 
int 
int 


readfp, writefo, 
ptsize; 

pid; 

freenode; 
infont; 

wrflag; 


Wha 


max; 

ht, maxw, Tht, 
bikes char w*bytc; 
edit; 

delete; 

tht, tmaxw, tlht; 
dim; 

include; 


Pwr ik, rft; 
bot, bytes, drc; 
S,» ei 

in? 


C, peekc; 
first, last; 
chmod; 

Sne 


sottv(3]; 
savetty, 
onintr(); 
x*xchardef, kO: 


char cstat, 

char desí80]; 
char ibuf (36); 
Char tbuf (4000); 


nmt 
int 


hdr (256] ; 
fhdr (256) ; 


Struct node { 


weit code; 

char *def; 

int nsizes; 

char stats 

Struct node *next; 
Bist (129); 


//file descriptors 

//Hershey font point size 

//Child process id 

//ptr to next free node in list 
//current character 

//initıally, O. incremented on 
//any change to flag a auit without 
//writing 

"xu to turn Off disSsOlayinaga of 
//ðiagnostics during file writing 
// 32677 used to denote base node 
//font dimensions 

//block,byte counters 

//set to 1 when in edit mode 

//flag in checking for empty fontfiles 
//temp font dimensions 

//char dim diplay control switch 
//flag preventing access to list 
//during an include command 
//character dimensions 

/ / n $" 

//command arguments 

//l if current character definition 1s 
//ın character buffer, 0 otherwise 
//characters on the command line 
//line otrs in character buffer 

//\ if char in buffer was modified 
//integer pointer 

//0, otherwise 

Z büffer for attyCIl) 

//terminal status 

//address of interrupt trap 
//character pointers 

//holds status of char in char buffer 
//holds font description 

//ouffer for read(II) 

//character buffer 

//hdr table of edited/created font 
//temo hdr table during an include 
//a node holds info on a single 
//character storeg on the llist 
//character coae 

0t to char definition 

//size of new definition 

//status of modification 

//ptr to next node in llist 
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erruct 
struct 
struct 
struct 


node *head; aoo" head of Ilist 

node *avail; //ptr to next free node 
node *current; //ptr to node found in FIND 
node *insert();//node returned by INSERT 


char rfontfilel40]; //fontfile being included from 
char wfontfile(40)]; //file being written to 
Er sfontf1let40) ("/.fonts.0i/font/")?; 


//pathname header of fontfile to 
//be edited 


Grar hfísizei5] ("10"); //default ot size for Hershey font 


mainlargc,argv) 


int argc; char *kargv; ( 
int 15 
if (argc > 1) {//arouments->edit mode 
if (ərov[1](0] == '-') {//digitize Hershey font 
if large == 3) (//check any ooint size 
if ((ptsize = atoifílargvlé2l1)) > 42) { 
printf("point size exceeds 42"); 
exit(); 
} 
p = hfsize; 
for(i=0;(*p+*#+ = ərgov[2a) [1]) is 'NO';1**)2; 
) 
po = fork() ; 
(pid != 9 ) 
while ( pid != wait() ) ; 
else //create orocess to digitize Hershey font 
execl("makehf","makehf",argvií1],hfsize,0); 
readfp - open("/.fonts.01/HFONT",0); 
else if ( aravfi) (0) == '/' ) {//full pathname 
readfo - open(argví1),0); 
else { 
p - argví1]; 
for(i=16; (sfontfileli] = *0o++) !1= "'N0O0'; i++); 
readfo - ooen(sfontfile,0); 
edit = 1; 
} 
init(); 
sional(2,onintr); //set interrupt trap 
while (1) ( 
setexit(); 
Beintf("\n%30o> “,infont); 
peekc = (peeke == '\n') ? 0 : peekc; 
if (command()) { 
EE en )>: 
if (peekc != '!Nn') while((c=getc()) 1= 'Nn') 5 
) 
) 
dort? ( 
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nt 1 
if (edit) 


i (readfo > 0) 


else 


Sriume re fomttile not 


{ 


exit(); 


} 
} 


{ 


else {//create mode 
amar (hdr); 


gprantf("Nnfont height ? 


while((htzgetnum()) « 0 | 
07 printf("height ? 3"); 


peekc 
printf(" 
peekc = 


0 


% 


° 
, 


d a 


); 


Fontharl), 


found Nn); 


")> 


> O 


printf("maxinum character width ? 


while((maxwzgetnum()) « 0 


peekc 
erint f (* 
Deekc > 


printf("loaical 


0 


A 


. 
, 


!! maxw > 


orxDpIntf(o"Maxwidth 2 " 
d !Nn" maxw); 


height 


while((Int=getnum()) 
a At 7 s 
a Sms |ıht), 


peekc 
orintf(" 
peekc = 


printf("Tyoe 
ont description, 


r 1ntf('" 


0 


% 


° 
, 


f 


getname(des); 


} 
max = 32677 
head-»code 


head-»next 
include = 1; 
infont = 0; w 
head - llist; 
) 
zhor (h) 
int hl); { 
register int 
n= he 
for lCi=071<25671++) 
} 


° 
, 


wrflag = 

max; 

O, chmod 
freenode 
r = 1; 
avail = 


i 


H ql 


< 0 


0; 
lv 


pine o h 


in any one-line"); 
if desired. \n”"); 


211ist (115 


//zero a har table 


At ty 


int getc() (//return next char 


if (peekc) ( 
c 7 peekc; 
peekc = 0; 
} 
else { 
c = getchar(); 
if (c != * *) peekc 
} 


return(c); 


Cr 


7] 


in command 


) 
} 
B 
PIOS 
D 


above baseline ? 


t) 
} 


line 


{ 


Dr 


{ 


{ 





fonthdr() {//read hdr table and font dimensions 


} 


int i; char t; 
read(readfp,hdr, 512); 
read(readfp,&ht,2); 
EUumtf("NnHeight Ze ) ",ht); 
Ent > 120 1! ht < 0) ( 
ENDURO too high")? exit()?; ! 
read(readfp,&maxw,2); 
printf("Maximum character width Xd. ",maxw); 
iflmaxw > 256 !! maxw < 0) { 
printf("too wide"), exit();} 
resd(readfp,81ht,2); 
Bromtt("Logical height %Xd\n",Iht); 
l ht > ht +: lht < 0) { 
printf("too hioh"); exit();) 
seek(resdfo,518,0); 
p = des; t = 1; 
r0; t != 'N0'*;1++) { 
read(readfo,&t,1); 
ptt = t; 


int getnum() {//convert numeric string and rtrn value 


int ibase} 
i = 0; 
while((c = getc()) 
mE >= *0* 328 c < 
mse = (c='0') ? 10 : 8; 
peekc 7 c; 


if (base == 10) while((cz2zgetc()) »z'0' && c«z'!'9'!) 
peekc = 0; 
i - i*base * c >= '0' 

; 


mise while(€e=qetc()) >='0O'" SR c«z'7') { 
peekc 2 0; 
i = i*base * c = 'O'; 


} 
peekc = Cc; 
return(i); 
} ; 
else(//there was no numeric strino 
peekc = 0; 
if (c == '#') returnt-2); 
if (c == '=') returnt-3); 
peekc = c; //c will be processed later 
returnt-1); 
} 
} 
int command() { 


/* Process the command line: 
update infont 
check command arguments 
execute command 
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Any problems ? return a 1; otherwise», return a 0 */ 
register i,j; 
int temp, k, h, hb, 1b; 
Switch(temp = getnum()) { 


case -2: //increment infont 
if (chmod) putdef(); 
infont++; 


in = 0; chmod = 0; 
break; 
case -3: //decrement infont 


if (chmod) putdef(); 
infont--; 
in = 0; chmoc = Q; 


break; 
case -1: break; //no change 
default: //infont aets temo 


if (chmod) putdef(); 
infont = temp; 
in - 0; chmoa 7 O0; 


break; 
) 
musCcinfont « 0) infont = 127; //check for wraparound 
EuCinfont » 127) infont = 0; 
while((c = getc()) == ' ') ; 
Switch (c) { 
case ‘a's: //ada a character 
instr(); c=qgetchəar(); getdim(); p=tbuf; 
for(i=071<400071++) *p++ = O0 5; 
bytes = (rw%8 == 0) ? rw/B : rw/8 + 1; 


intt; wrflagtt; chmodtt; break; 


case 'c': //chanoe lines s thru e 
if (gchardef(readfp)) { 
ıf (setse(ht)) error; 
sbase(); 


for(li=s,; i < es1++) 
HOrtl=f1est, $ Tast+rfirst;s J++) 
touf[i*bytes+j] = 0; 
for(izs; i <= e}; itt) { 
Etgen, et E 
foríjzfirst; j < last+firstij++) 
touflixbytestj)] = oetdef(); 
} 
intt; cstat = ‘m'; 
wrflag+t+; chmod++; 
) 
else error; 
break; 
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case 'd': //delete char's s thru e 
if (setse(128)) error; 
cstat = ‘d'; 
forlinmfomtzs; infont<zejinfont++) { 
ifíhdriinfont*2] == 0) continue; 
hdrlinfont*2] = 0; putdef(); 


} 
in = 0; wrflag+t+; break; 
case "ei: //edit lines s thru e 

if(ocharqef(readfp)) ( 
if(setse(ht)) error; 
sbase(); 
atty(l,sotty); savetty - sotty[11; 
for(ı1=s; i<Se;jitt) { 


GENEE eet ae 

Eeler sttv(l,;sotty); 

for(j=f#f#irst;)<first+ləast;j++) 
ISLE AECA Acce ,tout{li*bytest+s) ); 

sgotty(l] 7 savetty; stty(1,sotty); 

orintf ("Xn nr 

forílizfirstij<first+last:j++) 
touflixbytestj] = getdef(); 

) intt; wrflag**; chmodt*; cstat 2 'm!; 
) else error; break; 


case 'f': //Switch char dimension flag 
enme=tkaım) >97: 173 
break, 


@ase, 1's /7inmnelude char's s thru e from rfontfile 
if (setse(128)) error: 
getnamelrfontfile); 
ppend(rfontfile,"/.fonts.01/font/"); 
ifC(tempzopen(rfontfi11e,0)) < 0) ( 
Smimes © cangot open %s ,Ptfontfile); error; 
) 
coy(hdr,fhar); read(temo,hdr,512); 
read(temp,&tht,2); read(temp, $tmaxw,2); 
read(temp,&tiht,2); 
if (reject()) ( 
printf("compatible "); 
cpy(fhdr,hdr); error; 


; 
in = include = 0; 
Hcr = 0; dre = 1; 
forlinfontzs; infont<ze; infont++) { 
if (ocharoef(temp)) putdef(); 
else if(dre == 0) putdef(); 
) 
close(temo); wr = 1; 
foríi=0;1<s;i++) ( 
Pari  £hqr[i*K2); horlir2+1]) s fhgríi*2*1); 
) 
for(izetl1;i«128;1*-*) ( 
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IA Sartre, hartixre2+1] = fhdr[i*o+1]; 


} 
include = 1; wrflagqtts break; 
case 'l': //\ist lines s thru e 
if (gchardef(readfo)) { 
if (setse(ht)) error; 
sbase(); 
for(i=s; į <= eitt) { 
E ENM Sgt, ); 
for(j=first;) < last + first; j++) 
lua coexcucHcHcHeLnc ,tbuti*bytest)l]); 
) 
int*; 
) 
else error; 
oreak; 
case 'n': //display font description and table 
p = des; 
Jf (kO == !N0 1) printf("no descriptionNn"); 


else for(i=0;*p iz 'NO'; 1++) 
putcharíxp++); 
Dutchart Na"); 


pU" 0 1 e 3 u”); 
int + 5 6 7")? 
for(i=0; i<128;i++) { 

1if(1%8 == 0) { 


if (i == O)orintf("Nn000" ); 
ENEE EIERE DEE erte 1); 
else printf("NnXo",1); 
) 
pstat(i); 
) 
printf("NnNn' ' undefined  'X' unmodified  "); 
ppnamthReo 6. amelucged  "); 
printf("'D' geleted 'M' modified”); 
oreak; 


Base 'p': //modıfy font/char dimensions 
instr(); c = getchar(); 
getdim(); break; 


case "oi: //quit, warn 1f not written 
Arta) { 
wrflag = 0; 
Oeivmtto write:r?”);> 
errors 
} 
exit(); 
case "ei: //shift lines s thru e once 
if (achardef(readfo)) ( 


peekcz0; tempzgetc(); 
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if (setse(ht)) error; 


sbase(); 
Switch (temp) { 
case "ri: “right 
for(i=s; 1<=e; 1++) { 
Dew. 
for(j=first; ) « firsttlast; j**) ( 
hb = lb; p - &tbufli*bytestjl; 
if (p & 01) Ib = 1; else lb = 0; 
kp =>> 1; 
Eelere *p z& 0177; 
) 
) break; 
Case *']': //left 
for(i1i=s;iYi<=e; i+f+) { 
ho = 0; lb = 0; 
for(j=first+]ast-1;j>=first;j)--) ( 
p = &thuflixbytestj); 
1fC(*pR&0200)»»7) hb = 13 else hb = 0; 
xp Z<< 1; if(lb) *£o =i 01; lb = hb; 
) 
) break; 
case "ui: //up 
for(i=s; i<ses itt) { 


fly == 0) sontinue; 
for(j=first; j<first+last;j+r+) 


tbuf [(i-1)*#bytes+j]) = tbhuflixbytestj) ; 
} 
for(j=first; j<firsttlastsjt++) 
touflexoytestj] - 0; 
break; 
case Toi: //down 


for(ize;i>=z=s;i--) ( 
f (1 == ht-1 ) continue; 
forílj=zfirstij<first+last;j++) 
tbufi(i+1)*bytes+j) = tbuf[i*bytes+j] ; 


) 
for(j=first;j<first+last;j++) 

tbuf(ís*bytes*j)] = O 5 
break; 


default: error; 


} //list the shift 
for(i-s; ji <= ef itt) { 
Seger et ",1); 
for(jz=first;j < first+last; j++) 
ass (cC e Le E bar (i *bytestj)] 2; 


) 
intt; wrflagtt; chmodt*; cstat 2 'm'; 
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) else error; breaks 


case 'w': “write to wfontfile and quit 
if (chmod) putdef(); wr = 05 
getname(wfontfile); 
//no writina to file being edited 
if ( cmor(wfontfile,sfontfile) |! 
cmpr(wfontfile,"HFONT") ) { 


printf("writing to existing file "); wr-z1; error; 


ifl(writefp=creat(wfontfile,0666)) < 0) { 
printf("file J, error; 

} 

zhdr(fhdr); 

write(writefp,fhdr, 512); //write blank hdr table 

write(writefp,&ht,2); 

write(writefor,&maxwre), 

writelwritefp+,2l1ht,2)5 

bike = 1; bytc = 6; 9 = des; 

for(iz=0; *p Uz—'NO'21**) to 
write(writefp,o**,1); bump(1); 


) 
write(writefp,p,;1); bump(1); in = 0; 
for(intftont=0; infont< 128; infont++) { 
if (hariinfont*2] == 0) continues //no char here 
eise if (find(infont)) t//get it from liist 
if (current-»nsize == 0) continue; 
fhdr(infont*a)s(hdrí(infont*2a]80377)1(b1kc««8); 
fHamtlintont*e+i) = byte; 
write(writefo,current-»def,current-»nsize); 
bumo(current=>nsize); 
free(current=>def); 
} 
else if (edit) {//get it from file 
1 = gchardef(readfp); 
p = tbuf; 
fhcdrlinfont*o] Ss(hdrlinfont*21s0377)i i (blkc<<8); 
let = bytc; 
write(writefp,p,8); bumo(8); 
p =+ Dytestrft + 8; 
write(writefp,bp,bytes*drc); 
bump(bytes*drc);: 
) 
else error; 
) 


sSeek(writefo,0,0); 

write(writefoc,fhdr,512); 

delete = 1; 

//remove any empty fontfile 

for(i=0;1<256;51=+ 2) if(fhdrí(íi] » 0) delete = 0; 
if (delete)íblkc = byte = 0; unlink(wfontfile);} 
DI NO ,oOlkc*xoletbytc); 

exit(); 
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Cose "Nn i break) VI BS GAC 


default: 
Ee 
error; 


) 
return(0); 


) 


bump(1) //running count wfontfile size 
//in blocks and bytes 


Nt 1; ( 
if (bytcti >= 512) { 
IES Tke + Tbytcr1)/512) < 255) ( 


blkc =+ (bytcti)/51e; 
Byte = (bytc+i) 4512; 
} 
else if (bytcti » 352768) ( 
ant fie too big"); exit(); 


} 
else bytc =+ j} 
} 
else bytc =+ i; 
} 
int cmpr(pl,p2) //rtn 1 if pl Is p23 otherwise, 0 
char xol,*oc; { 
mort ; 5 ) ( 
if (*pl 1= *p?2o**) return(0); 
if (*pltt == '\0') return(1); 
} 
} 
Fino) //copy pl to pe 
int *xnl,*nóo; ( 
int i; 
for(iz0;i1«056;i1**) *n?o** = *nl++; 


} 


ppend(pl,pe) //prevend oe to pl 
Sia? pill, pel); d 
char *ol, *be, t (40); 
bl = olf be = te 
while((*b2++ = *bi++) $= 'NO') 5 
be = pes; bl = pl; 
while((*ol++ = xrp2++) ! 
be = ts blew; 
while((*bl++ = *ebett) $= 'M0') 5 


BCEE wee 


} 


Int reject() { /S//rtn 1 if files are incompatiblesow, 0 
foment !- ht {+ tiht 1= Tht |: tmaxw > maxw) return(!); 
else return(0); 
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bmwuntr() 4 
signal(d,onintr); 


ıf (savetty) { 
sgtty(ll] = savett 
savetty = 0; 
sttyll,satty); 
savetty = 0; 

} 

resetí(); 


} 


int gchardef(fp) 
/* Get the character 


character», put 1t in 
blank rows» and d1sp 
mt fp; ( 
register 1,5; 


register char *tp; 
if (in) return(1); 
memefindlinfont) %& 


//restore environ. 


reset int trap 


y? 


definition for the current 
the char buffer, expand 
lay necessary diagnostics x/ 


1 
ist 


//it's already there, rtn 
include) { //it's on the 


if (current->stat == 'd') { 

printf ("deleted "); 

return(0); 
) 
to = tbuf; 
chardef = current->def; 
Stott 2 rw 2 *chardef++;5 rw =8 0377; 
rw 7| (*tp*t = rchardef++) << 8; 
if (rw <= 0) { 

printf("%o raster width Xd ",infont,rw); return(0); 
} 
bytes = (rw%8 == 0) ? rw/B : rw/8 +1; 
ktp++ = Ik = xcharcef++t; Ik =2 0377; 
lk =+ (*tp++ = *chardef++) << 8; 
Stott S rft = *chardef**; rft =& 0377; 
rft =; (Xtp++ = *chardef++) << 8; 
*#to++ = drc = *chərdef++; drc =x 0377; 
drc 21 (*tp** = xchardeft+) << 8; 
Wbltodrc == 0) ( 

Soya orintable "); 

returní(0); 
} 
bot = ht e (dre + rft)? 
for(1=07 31 < rft}; itt) 

for(j=0; j < bytes; J+*++) *to++ = 0; 
Por(1=07 i < drc; itt) 

for(j=07 j < bytes; j++) *tp++ 7 *charqef++; 
fomii=0; i < bot}? itt) 

for(j=07 j < bytes; j++) *to++ = 0; 


if (wr && dim) pc 
return(1); 
) 
//get it from the fi 
mee chor linfont xe) 
printf("undefined 


hardim(); 


le 
0) 


RE 


d 
return(0); 
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} 
mec ct j= Chdrlinfont*e) & 0177400) >> 8) != oi { 
j =& 0377; 
seek(fo,j 3); 
Seek(fo,ahodr lintont*2+11,1); 
) 
else seek(fp,hdr linfont*#2+11,0)5 
read(fp,&rw O); 
Erw <= 0) ( 
Fit f(" Zo raster width Zd ",intfont,rw); return(0); 
} 
read(fp,&1k,2); 
read(fp,&rft,2); 
resd(fp,&drc,2), 
if (darc == 0 && wr) { 
printf("orintable "); 
return(0); 


) 

EEUU Zoht -(drc t rft); 

bytes 2 (rw%8 == 0) 7? rw/B8 : rw/8 + 1; 

to = tbuf; 

ktot+ = rw & 0377; 

*#tp++ = (rw & 0177400) >> 8; 

EM kk & 0377; *tp++ = (lk 2 0177400) >> 8; 
ESL rft & 0577; *tot* - (rft & 0177400) »» 8; 
Hurt = drc & 0577; *tp** = (drc £ 0177400) >> 8; 


for(i=03; i < rft; i++) 
for (j)=0; j < bytes}; j++) *tp++ - 0; 


for(i=0; 1 < dre; 1++) d 

read(fo,ibufs bytes); 

Morci=0, j < bytes; J++) *tp++ = jbufíj); 
} 
for(i=07 i1 « bot; i**) 

mor(j=0, j < bytes; j++) *tpt* = 0; 


Mr SS dim) pchardim(); 
return(1); 


) 
int setse(x) //set command aras s and e 
Jt ox; { 
peekc = 0; 
S - getnum(); 
Ets < 0) ( 
s = O; e = x-1; 


return(0); 
} 
e = getnum(); 
if (e < 0) e = 5; 
if (e < s) errori 
if((s >= x |]; e >= x) && x == 128) error; 
if((s > x {i e > x) && x == At) error; 
retunrn(0); 
) 


list(fmt,byt) 
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DIE By Dit, 
byt; { 
r i ntf(fmt,0200&%&byt ?'0'!' 


//list byte, 
char *fmt» 


O =>! 


ER, a 


‚01008byt?'0' 


° ? ' ° 
MIE O. 00208byt?'0':",. 
Dos 0 -',0000&byt?'0's'., 
Mao... ¿00013byt?2*0':", 
) 
int finda(i) 
Aee urrent character is on llist, rtn 1 and 
//cunrent points to correct node; ow, rtn Ü 
int 1; ( 
register struct node *ptr; 
ptr = head; 
while (1 > ptr->coce ) 
ptr = otrw>next, 
if (i 7-7 ptr-»code) ( 
current = otr, 
return(1); 
} 
else return(0); 
} 
getname(file) 
eget name ending in '\0' and stick it in file 
char filel); { 
while((c = getc()) == ' ') ; 
ieee f= *An?) { 
o = file; 
ao / 
Spott Z c; peekc = 0; 
) ailece = getc()) != 'Nn'); 
me = 'NO'; 
) 
) 
putdef() { 
meme definition in char buffer on Jlist 


meme tfindl(infont)) Inodelcurrent,infont); 
else { 
luode(insert(ava1l»infont),infont): 
if Cfreenode » 128) ( 
printf("overflow"); exit(); 
} 
avail - &llistíi**freenodel; 
} 


} 


Enodge(ptr,k) 
Seruct node *ptr; 
register int 
int clear; 


int k; 


ptr=>code 2 kx; 
maí cstat == 'd') { 
otr=>stat - cstat; 


i,Jsregister char 


aont he work for PUTDEF 


{ 
ktp; 
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return; 
EE count blenk rows et top and bottom 
ert = bot = O0; 
i = 07 clear = 1; 
while(i < ht 22 clear) ( 
for(jz8; j « bytes * B; j**) 
if (tbuflixbytes+j] $= 0) clear = 'NO'; 
if (cleər) rft = i+l; 
ptt; 


f (1 « ht) ( 
J = ht=1l; clear = 1; 
while(i > 0 && clear) { 
for(j=8; j < bytes + 8, j++) 


if (tbuflı*bytestj] != 0) clear = 'M0'; 


1f (clear) bot = ht-1/ 


Doe, 


) 
) 
HEN (drc) ? ht -(rft*tbot) : 0; 
Mare == 0) rft = lk = 0; 
MS ptr=>def - alloc(bytesxdrc*8); 
meet = rw & 0577; *to*t - (rw & 0177400) »» 8; 
HEU uz ik & 0377; *to** = (Ik 8 0177400) >> 8; 
EM rft & 0577; *tptt - (rft & 0177400) »» 
ESL 2 drc & 0577; *tp** = (dre & 0177400) >> 


for(isrft? i «€ rft*tarc;it*) ( 
for(j=87 j < bytes + B; jt*) 
*tptt = touflixbytestjl,; 


} 
ptr=>nsize - B*drc*bytes; 
ptr-»stat - cstat; 


} 


Struct node k*jinsert(a,i) 

//rtn a node for PUTDEF to use 
Struct node *a; int i; ( 
register struct noce *otr,*temp; 
temp = ptr = head, 
while( i > otr=>code ) { 

temp - ptr; 
otr = ptr=>next; 


a=>next = temp=>next; 
temp=>next = as 
) 
a-»stat - a-»def = a=>nsize = 0; 
return(a); 
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feet 4 //set horizontal starting point for char def 


) 


first = 8; last = bytes; //normal char, default 
if (bytes > 9) { //too wide, get a starting pt 
printf("\ntoo wide...starting where 72"); 


oeekc - 0; 
while((last 7 aetnum()) « 0 ii last »7 rw) ( 
peekc = 0; printf("where ?"); } 


peekc = 0; 

last = (last == 0) ? 1 3 last/8 + 1; 

first = first + last-1; 

est = €€bytestG=ftirst) » 9) ? 9 : bytest8-first; 


getdef() ( //get one byte of a definition 


} 


int mask,i,j, 
peekc = 0; 


te (le = qetc()) !:= '0' 88 c /= ',?) ; 

peekc 7 c; 

i = j = 0} 

mask = 0400; 

while((j++ < 8) &&8 ((c=aetc()) == !0' $, ec == *,!)) 
peekc = 0; 
if ((mask = mask>>1) 83 c == '0!) 


IS 
) 


returnt1); 


estat (i) //erint char status for edit table 


} 


int i; { 
1f (find(i)) { 
Switch(current-»stat) ( 
Saca orante". DD "break; 
case erat" — I ");break; 
ease om Etape M ^");break; 
} 
} 
Zee if (hdr(i*2] == 0) printf" 23 


Ese orintf(* X 9); 


pchardim() ( //cisplay char dimensions 


Et i; 

EN = hdriinfont*2] & 0377) == 0) ( 
Brintf("undefined"); return; 

) 

(rw Zd cw Xd ",rws, 1); 


Ma == i) printf("]k %d rk *d",lk,1&k); 
else if (Ik) ( 
mec lk+? == Prw)printf("1k Xd ek wd: wl ka U J), 
else printf("Ik Xd rk XZd",lk,rw -i-71k); 
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BEER dk Xd rk 4Xd",lk,rw-1):; 

Bent ht d ht Xd ",ht+1ht); 

Samet ( eft 4d dre ZdNn",rft,drc): 
} 


getdim() { 
/* Look for a number and/or name. Take both as 
a request, rejecting invalid requests with a '?' 
Mon 't’ and return to the maın command loop */ 
int isj font; char name[20); 
joz hdrí(infont*2e) 0377; font = 0; 
while (1) ( 
peekc s 0; printf("NnXZ5o-» ",infont);: 
i = getnum(); getname(name); 
iflemor(name,"t")) break; 
miecempr(name,”"i")) instr), 


else if(cmor(name,"infont")) ( 
infont = 1; I = gchardef(readfp); 
} else if(cmpr(name,"d")) { 
NAS A des); 
peekc = 0; getname(des); 


} else if(cmpr(name,"p")) pchardim(); 
eise if(cmor(name,"f")) 
IIA Zo maxw id ht Ad\n"‚,ht,maxw. Iht); 
else if(cmor(name,"ht")) ( 
Ms Rt) ht = 1; wrflacqt+; ) 
ersesorint rc’ Nn: "y; 
) else if(cmpr(name,"Int")) ( 
if(i «z ht)( Iht = 15 wrflag++; ) 
else printf("\n? "); 


) else if(cmor(name,"maxw")) ( 
if(i «0 ít 1Y > 256) (maxw = i; wrflaot+; ) 
else orintf("\n? "); 
} else if(cmpr(lnmame,"cw")) { 
if(gchardef(readfp)) { 
1f(i <= rw) { 


hdr linfont*2) =% 0177400; 
Rca fonte =, i 8 0977; 
Ik = rwsi Zi font = 1; 
Nesecito] "Jj; 
} else printf(" cw now Zd\n",Chdrlinfont] =1)); 
} else if(cmpr(name,"rw")) { 
if (gchardef(readfo)) { 
if€i <= maxw) { 
rw = 15 font = 17; 
MW €) ( 
omunfont*el] = 
Aaimtintomt*te) = 
lk = 0; font = 


0177800; 
189793053775 
1; 
} 
) else orintf("Nn? "); 
} else printf(" rw now XdNn",(rw - i)); 
)? else if (cmpr(name,"1k")) ( 
ıf(gchardef(readfo)) { 
if(rw == j) { 
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Bro EEN, (Ik = i} 

else orintf("Nn? "); 

} else if(i <= rwej) { 
else printf ("\n? "); 

peetsesormnimer(” tk now ZdNn", (1k = 1)); 


lk = 15 font = 1; } 


} else if(cmpr(name,"rk")) { 
if(achardef(readfp)) ( 
if€rw == j) { 
OA else orintf("\n? "); 
) else if(i <= rwej) ( 
if(i*lk == rw-j) 3; 
else { ]k Z rw=i; font = 15 ) 


ise roca tico: "); 
else Dr intf( "Xan? "), 
meerse orintf("\n? *); 


} 
E (font) { 

wrflagt+rcstat = 'm';cutdef();in = 0; 
) 


) 


Er) ( //disolay instructions for GETDIM 
orintf("Modifiable FONT dimensions are:\n"); 
EuDtf("height- 'ht' max character width= ‘maxw'"); 
Etf(" logical height= 'lht'NnNn"); 
printf("Modifiable CHARACTER dimensions are:\n"); 
printf("raster width- 'rw' character width= 'cw'"); 
printf(" left kern- ']k' Maht kern 'Tk'’N\n\n"), 
Etf("TIype '1' for instructions, 'e' for ");/ 
Bramtf("°dimensions of character in buffer.\n"); 
printf("To move to another cnəracter, update "); 
printf("'infont'.Nn"); 

ER tft("NnGet font dimensions with 'f'. "5; 

EUDptf('Modify font name with 'd'. If you're adding"); 
printf("a\n character, make changes in this order only:"); 
RIEL" 'ru', 'Ik' , then 'cw'.Nn"); 

pnrintf("NnImopossible modifications are rejected...."); 
printf("some example inputs might ben"); 

a. '22 Int', '063 infont', "1, or '0 ]k'Nn*Nn"29; 
printfí("You'1l be promoted with a '->', "); 

printf("When you are finished, tyoe 't'... Ann"); 
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APPENDIX 8. VECTOR TO RASTER CONVERSION 


A. "MAKEHF': CREATING A FONT 
mee Basic Structure 


"Makehf" is designed to convert the vector defini 
tions of Hershey's 14 fonts into a digitized form suitable 
for use in computer typesetting. Tne digitized font file 
created matches the format used in the SAIL files and is 
compatible with the font editor. This font file format is 
described in Chapter III; Hershey font files aiffer slightly 
meeause no font description is ever generated by  "makehf", 
SO an extra zero byte immediately follows the three words 
containing the font height, maximum character width, and 
logical height. This zero-word tells "edf" that no descrip- 


tion is available. 


All fonts digitized from Hershey vector definitions 
are variable width fonts. The arguments used to call 
"makehf" are describeo in Chapter II and again in this Ap- 


pendix. 


This proaram can be used in a stand-alone mode, in 
which case the diaitized font file created is normally left 
Ee "/.fonts.01/HFONT" and it can then be copied to any 
other directory. The digitized font may be written directly 


to another file, as explained in the next paragraph. When 
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tizing a font usina "edf", "“makehf" is spawned as a 
Edd process? the editor waits until the digitization is 
complete and then opens file "/.fonts.01/HFONT" for reading 


and continues normally. 


An additional! option has been added and is normally 
Used for the digitization of fonts larger than 4e point. 
However, Yt may be used whenever the user wants the digi- 
tized file written to some location other than the default 
file. Since the file space available on the mountable file 
is limited, the user may include a full path name as a third 
argument and indicate a specific output file as the destina- 
tlon for tne digitized font. This option should permit the 
user to avoid system "write" errors that might occur if the 
digitized file were larger than the space available on 
"/.fonts.01". A point size must be included as the second 
argument when using this option, even if the default value 


is desired. 


EE Limitations 


Because a decision was made to limit the maximum 
raster height to 255 pixels, "makehf" will create fonts only 
up to 91 point in size. The user should also be aware that 
font files increase in size rapidly as larger point sizes 
are requested. The next pages, for example, contain the Du- 
plex Roman font digitized to 10, 20, 30, and 40 point 
sizes. This allows a comparison of the relative sizes of 


both the characters and the font files themselves. The fıle 
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sizes and the times required 


SIZE bytes ) 


3522 
15211 
51 757 


S 3458 


to create the fonts are 


TIME 
Real User System 
04520 0552.8 0:19.4 
1:91.0 1:10.49 aros c 
5:00.,0 2:26.4 0:28.68 
3 18.0 3511.6 02.0956 


The three times given were obtained using the 


below: 
HDR10 
HDR20 
HDR 5350 
HDR40 
command 
using "edf" 
tor when 


the time required to digitize a font will 
ably as either the point size desired or the number of 
per character 
taken early 


larger fonts than a normal 


be. I f 


digitization becomes noticeably 


times 


given below: 


HSR 


HDR 


HCR 


HTR 


HCI 


both 


discussed 


with a 


(write) command waiting for the 


in Reference 5. 


returnea from the cal] to 


(the complexity) 


REAL 
ie: 01.50 
(247.0 


251.0 


2o 


factors 


in the evening e 


increases. 


"makehnf", 


increase 


These times 


listed 


"tme 


The conversion was made 


edi- 


Normally, 


notice- 


lines 


were 


and are somewhat faster for the 


increase, 


USER 


0 ° 5525 


115521 


1520.9 


88 


time during the 


work day 


would 


then the time required for 


longer. 


SYS DEM 
0:20.4 
0, 25.8 
DS 
o: 5055 


05 5078 


SIZE(bytes) 
15461 
|5211 
18327 
153506 


16956 


A comparison of the 


required to digitize each of the fonts at 20 point is 
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e reg EE gege 


digitization 


BTI SGR O 
HSS io 
HCS 1:46,0 
HSG ESO 
HCG SO 
HGE 3:44,0 
HGG edo 
HG Í 255.0 
HCC ERO 0 
"Makehf” 
permits 
point in size. 


dress only 160K, 


that can be addressed 


Pont. 
letters; 
some 


see what 


Larger 
digits, 


lower 


case 


EE Ee 


However, 


so this 


Yn 


106565 
gu 7 
IU 
oes 
juo 
(247,7 
1254,7 
DEEN 


EE 


fonts Can 


can address up to 


of 


its entirety 


and punctuation are 


but some wil] 


EB 


0239.25 
AE 
DEST 
EC 
0329.4 
US Sr 
9: 55.0 


Oe 5220 


cog cR 


200K 


DomntsqTupb 


the font outout 


be diqitized 


to 


desired Or 


17005 
13393 
13173 
15302 
18086 
1620 
17560 
16759 


19902 


in memory, which 
to approximately 91 


routines can ad- 


limits the size of a digitized font 


approximately 65 
1f only upper case 


required, 


letters may be available (run "prfont" and 


be unaddressable. 





MAKEHF 


NAME 
makehf 


SYNOPSIS 
makeh f 


DESCRIPTION 


This command creates a Hershey 


== diaitize a Hershey font 


1 May 1977 


definition 


-HFT 


(SIZE J) [ outout 


requested by the user. SIZE 
if no SIZE option 
the default size 


lowed is 255 pixels ( 91 


A full 
"makehf 
tized f 


path name may be used as a 
This causes the program to write 
to the specified output 
EE Eet EENG 


ont 


the default file, 


option 
point. 


is recommended at point sizes 
e SIZE must be specified 
if the default size 


Th 


used, even 


The fon 
list: 


HSR 
HDR 
HCR 
ATR 
ACI 
AHTI 
HSS 
HCS 
HSG 
HCG 
HGE 
HGG 
HGT 
mee 


miles 


is used, 
10 point. 
point 


file ] 


fom 
is an optional 
the font will 
The maximum 


)» 


FE 


MAKEHF 


from the vector 


point size 
parameter; 
created in 
height al- 


argument to 


the digi- 


file rather than to 

The use of this 
larger than 40-42 
if this option is 
is desired. 


t requested by HFT must come from the following 


Simolex Roman 
Duplex Roman 


Complex 
Triplex 
Complex 
Triplex 
Sımolex 
Complex 
Simplex 
Complex 


Roman 
Roman 
Italic 
Italic 
Script 
SC 1 t 
Greek 
Greek 


Gothic English 
Gothic German 
Gothic Italian 
Complex Cyrillic 


/.fonts.Ü0l/hershey/-7-7.v 
MOR ts. 901/HAFONT 


mee ALSO 
edf 
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BUGS 


This program will actually convert a Hershey vector 
definition to a digitization in a stand-alone mode as 
long as the first, third, and fourth letters in the 
first argument are correct, i.e., the second character 
need not be an "H", However, this is the same program 
called by the font editor to create a Hershey font, 
and if the argument oassed to "eaf" does not begin 
with a "-H", the editor will not work. 


9 š 





SC x 
k makehf.c x / 
/* k / 
#define FFACTOR 2050 
Rdefine SIZE 8192 
#define MODE 0666 
#define ee MES 
define NOHELP . 40 
#define SOMEHELP .90 
#define DEEV .60 
"define DELH S 
#define DOLLAR 73 EE heicht 
#define SLASH 95 // also for height 
#define CAPM 155S // capital M location 
// in directory 
#define SMALLP 225 // small p location in 
// directory 
"define CAPX 177  // cao x for Greek chars 
#define SMALL X C41 // small x for HCG 
define CAPP 81 IRRE Sp BEfor MGG 
#define SMALLF 105 // small f for HGG 
Rdefine STORONT 29.0 // height 
#define R 0 
#define N 1 
float xj, Yis xx, YY? 
| xl, yl, Xe Yre 
ET ly, Cx, Py» 
b, m, deltax, xwiae, yhigh, 
true, test, xconst, yconst, delx; 
mot lr jo Ke IJ Coünters for. “tor” loops 
ftnt, ftw, 7 tont height, width 
mtr, wptr, // read and write pointers 
ymin, ymax, // min & max height of font 
xmin, xmax» AO S$ max widths of font 
ktr, // counter for arrays 
bytes, // byte counter 
Sets 
mete “§(c59) ; // array for char directory 


int hts[4]; 
long 


int cpos + 


char rpath() { 
Pye tonts.0i/hershey/=--.Vv' 


I y 


char wpathí] { 
K fonts O]/HFONT" 


; `; 
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char lepte], 
x(144], Yt144)], 
mask, 
numi, numd, 

qo, flao, ok; 


char DMISIZEI ; 


readch() { // read in a char def 
k = seek( rptr, cptr, O0 ) ; 
ktr = 0 ; 
numi = num? = 0; 
wie ( (numi != 50) f! (num2 != 50) ) { 
k = read( rotr, lep, 2 ) ; 
numl - leoí!í1] ; 
numo 2 lepí0] ; 
if ( numl > 50 ) numl 
if ( numƏ > 50 ) nun? 
X[ktr] 7 num! ; 
MIRES pume + 
ktrtt ; 
) 
) aoEendemeddeht) s.v. 


numi - 100 ; 
numo - 100 ; 


minmax() { 


ktr = 0 ; 
mme ( (XIktr] iz 50) ii (Ytktr) !- 50) ) ( 
mI C (X[ktr] > xmax) && (X(ktr] !- 50) ) 
xmax = X[ktr] ; 
else if ( X[ktr] < xmin ) xmin = Xlktr) ; 
Ec CYiktr] » ymax) && (Yfíktr] ¿= 50) ) 


ymax - Yíktr] ; 
else if ( Yiíktr] < ymin ) ymin = Ylktr]) ; 
K UP ++ ; 
; 
} // end minmax() ee. 


main(€ argc, arav ) 

Ek aroc + 

char *argví] ; ( 

Me Gi; jj; // array counters 
Cr Cw, rwr DtSize, // font parameters 
trow, lrow, rows, rowc, maxcw; 

// row oointers 


top, bot, IRE G  OOGtLOmM of char 
high, Anon 1S the chair 7 
Ehe, // logica! height of char 
maxaddr, JF MYGkhest adar in 16 bits 
rem, block, an tont > 65K 
Ene, pit: // data row count, 
7/7 TFows trom too 
int tndr [259] ; // temp header for output file 


char slove, posit, 
strt, 
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Zero» 


big: IL Af font is > 65K 
greek, // flag for Greek alphabet 
gothger; // flag for Gothic German 


BEN argc >= 3 ) ( 
Maras 121 10) < '0') Lt (argv[21[0] > '9') ) ( 
printf("incorrect argument-=Nn"); 
i jt f ("5olnt size not given...\n"); 


ex1t();/ l 
} ` 
else ptsize = atoi( əargov[o] ) ; 
} 
else ( 
ptsize = 10 ; 
Ka) 
roath(191 = əarov(1] (2] ; 
rpath[20] - ərov(1] [3] ; 
mec arovillj] {3} == 'G' ) ( 
mou argvtiilt2] zs '6' ) ( 
gothger 2 1; areek = O; ) 
else { areek = 1; gothger = 0; ) 
) 
else { areek - gotnger - 0; ) 
meme = (ptsize * 2.8 ) * 1 ; 
delx = FFACTOR ; 
deltax = ftht * delx ; 
block = rem 2 0 ; 
maxcw = 0 5 
zero = 0 ; 
mask = 0l 5 


ymin 

for ( í = O i < 259 3 i++ ) 
enartij] = 0 ; 

meee) = 0 ; j < SIZE ; itt ) 
DM(i] = 0 5 


retr = open( roath, R ) ; 
if ( arge == 4 ) { 
mut arogvt5] [0] !'z '/7' ) { 
printf("incorrect output file name--Nn"); 
printf("full path name required\n"); 


exit); 
} 
else wotr = creat( arav{3}, MODE ); 


} 
else wotr = creat( woath, MODE ); 
k= read( rotr, M, 512), 
Mme kk t= Sie ) X 
printf("incorrect read from Xs", rpath ) ; 
exit(); 
) 
seek( wotr,0,0 ) ; 
xupwte( wotr,thdr,518 ) ; 
write( wotr,&zero,l ) ; 


A 
H n 05 
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pos = 519 ; 
W ( ptsize >= 36 ) { 
block Z coos>>9 & 0177777 ; 
rem = cpos & 0777; 
big = 1 ; 
} 
else big 205 


// use a capital M and a small p or x to find 
// the hiahest and lowest points in the font 


hts [2] DOBLAR ; 
hts [3] SIEASH 3 
if ( greek ) ( 
EUST] = CAPX ; 
hts[1] = SMALLX ; 
} 
else if ( gothger ) ( 
hts(0] = CAPP ; 
hts[(1) 7» SMALLF ; 
) 
else ( 
hts [0] 
mes [1] 
} 
morec 1 =~ 0 - i < d ; itt ) { 
eotr = M[ hts[i] ]<<1 ; 
readch() 
minmax() 
if (1722 0) Iht = ymax ; 
} 


CAPM ; 
SMALLP ; 


° 
r 
* 
[4 


// now use the high and low points to find 
// the multiplication constants necessary 
// to make the standard font larger or smaller 


yhigh = ymax = ymin ; 

yconst - ftht / yhigh 5 

meomst = ftht / STDFONI ; 

xwide = ( xmax = xmin ) * xconst ; 

yy = (ymin * yconst) ; 

]ht - (iht * yconst) - (ymin * yconst) ; 


// now walk through the directory and convert 
// any non-zero entries (1.e., characters) from 
// vector to raster in the desired pointsize 


EU 3 = 0 ; 1 < 128 5; i** ) A controlling loop.» 
j za; <<] 5 
meee Mis] t= 0 ) { EE for EE e e 
cw = M(;j] ; 
ftw = rw Z cw * xconst +; 
cptr = M(j+1]<<1 5; 
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B (C (rw 4 8) 
else rows 
ymin = ymax = 0 
go = ok = 1 ; 
MCj) = (rw & 03577) | (block««8 & 0177400) ; 
U big ) d 


M[j+1] = rem ; 
} 
else í 
Mfjtll] = cpos ; 
} 
lrow = 0 ; 
trow = 8 ; 
if ( rw > maxcw ) maxcw = rw ; 


readch() ; 

minmax() ; 

top - -( (-ymin * yconst) + yy ) 5 
mee top < 0 ) too = O0 ; 

Ber = top ; 

bot = -( (=ymax * yconst) + yy ) + 1 ; 
NA bot > ftht ) bot = ftht ; 
Me = high = ( bot = top ) + 1 ; 
ktr = 0 ; 

x1 2 X[ktr] $ 

yl = =Y(ktr] ; 


+tktr ; 

xr = numl = X[ktr]) ; 

numeó = Y[ktr)] ; 

yr = enum ; 

while ( go ) { // check each line in the character 
flag = 1, 
if ( numi == 50 ) {// check for "move" or end of char 

if € nume == 50 ) go = 0 ; 


// that's all for this cnhər, 
// go on to the next one 
else if ( num2 != 0) { 
perror( "bad y value for x = 50 ") ; 
break 7 
; 
else ( 

toc Gir os 
numi = X[ktr] ; 
num 7 Yíktr] ; 


if € numl > 50 ) numl numl - 100 ; 


if Gomume > 50 ) nume nume = 100 ; 
x] = numi 3; 
yl = enum ; 
flag = 0 ; 
} 
) 
else ( 
if (y) == yr ) { slope z 0 ; m = 0.0 ; ) 
else if ( xr == x) ){slope = -1; m 7» -1.0; 
else {slope 2 1; m = (yl-yr)/(x!l-xr);) 
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Mx = fw / d.Ü0 + 
rx = xx + (xr * xconst) 7 
ry = yy + (yr * yconst) 7 
lx Z xx + (xl * xconst) ; 
ly = yy + (Cyl * yconst) ; 
ok = 1 ; 
rowc = trow e 
if € slope == 1 ) { // normal line case 
b = ly = ( m * Ix ) 7 
if ( (m >= 3.0) ¡15 (m <= -3,0) ) 
{ 
if ((m >= 7.0) ii (m <= =7.0)) 
delx = HELP * 1.50 ; 
else delx = HELP; 
} 
SI SS 2.50) aR (m >= =.50) ) 
delx = NOHELP ; 
else 
delx = SOMEHELP ; 
} 


Den 200, { // slope is positive 
for (ii Z top) - 14 <= bot*l ; iit+ ) 4 
yl = =i / 
Jf ( (y) >= Jy). && (yi <3 ry) ) i 
(Cyi >= ry) && (yi <= ly) ) ) { 


true = yi + 

(Or EO) jg ftw; j++ ) 4 
XJ = jj ;/ 
test = ( m * xj ) + b ; 


if ( (test >= (true - deltax*delx)) 82 
(test <= (true + deltaxxdelx)) ) { 

c = j) / B 
posit = jj 
DM[rowctcl 


(ou xc I 7 
DMtrowc*c] i| 
(mask<<(8 = posit)); 


lí í se 


} 
} 
} 
rowc = fowc + rows 3? 
) 
) 
else ( // slope is neqative 
ra E top ; 11 <= bot+1 ; 11++ ) ( 
yl Z =11 / 


if ( ( (yì <= 1y) && (yi >= ry) ) ii 
( (yi <= ry) && (yi >= ly) ) ) { 
true = yi ; 
EE Echt < ftwe fF ptr ) 4 
xj = jj / 
test 2 [ m * xj ) + b 5 
if ( (test >= (true - deltax*delx)) 88 
(test <= (true + deltaxxdelx)) ){ 
c= jj / 28; 
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DOS C fi =~ ( 6 * ¢ ) +1, 
DM[rowc+c] = DM[rowctc] | 
(mask«« (8-posit)) ; 


rOwC = rowc + rows » 


else if ( slope != 0 ) { // vertical line case 
MON EOS. 11 <= botti; 11++ ) 4 
yi = =jj 5 
if ce ( (yi < ly) && (yi > ry) ) ` 
( (yi < ry) && (yi > ly) ) ) ( 
for (ji = OF jj] « ftw; jij** ) t 
xj = jj ;/ 
if ( (xj >= (1x = deltax*DELV )) && 
(xj <z (lx + deltax*DELV ))) ( 


A E 
posit = jj - (8 * c) * 1 ; 
DM[rowc * c) - DM(rowc * c] i| 
(mask««(8 - posit)) ; 
) 
) 
) 
POWC = rowc +f rows + 
) 
) 
else í // horizontal line case 
fón (ii =< top; ij) <= bott+tl; 11++ ) ( 
yi = =) 1 7 
if ( (yi <= (ly + deltax*DELH )) && 
(yi >= (ly = deltax*DELH )) ) ( 
Form jj Z90;,;7 jJ < ftw? jjtt ) d 
xj = jj 5 
AS a (xp «z rx) ) 1i 
((xj >= rx) 88 (xj <= 1x) ) ) ( 
c = jj) Z 8 ; 
Sesit= jj = (8 * c) + 1 5 
DM[rowc + c] = DM[rowcCc + c] ' 
(mask<<(8 = posit)) ; 
} 
} 
} 
rowc = rowc + rows + 
} 
} 
) 
EXC flag ) í 
xl - xr ; 
yl * yr ; 
} 
Bt go ) ( 
PERE 5 
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numl = X(ktr] ; 
numd = Ylktr) ; 
Dumme >7 50, numi = numi = 100 ; 
if Cnum2 > 50 ) num2 = num? = 100; 
xr = numl ; 
yr = =nume ; 
} 
} 
DM(lrowrt1] ( rw 2 0177400 )>>8 ; 
DM(lrow] = rw 8 0377 5 


DM{lrow+2] 
DM[1row+5] 
DM[lrow+4)] 
DM(]row+7]) 
DM (]row+6] 
lrow = trow + ( high * rows ) +; 
cpos = coos + row ; 


DM[1row+3] = 0 5; 

( rft & 0177400 )»»8 ; 
Sree 0 S77 3 

( darc & 0177400 )>>8 ; 
dre R 0377 ; 


"uon sus on 010.53 H 


// insert code to handle larae fonts, i.e., 
// fonts that have more than 65555 bytes 

// in the character definitions. This 

// should haopen around the 40-42 point size. 


Bec big ) ( 
block = cpos>>9 & 0177777 ; 
rem - cpos & 0777 ; 
if ( block >= 253 ) X 


big = O ; 

coos - rem ; 

) 

) 

k 2 write( wptr,DM,8 ) ; 
j = trow ; 
if ( high < 25 ) bytes = rows $ 
else bytes = rows * 25 ; 


ktr = bytes ; 
while ( ktr >= pytes ) { 


k - write( wotr+,2DM[j)] , bytes ) 3} 
jJ = j + bytes i} 

ktr = ]row = j / 

) 


ieee ktr > O ) 
kK = writel wptr,8DM([j)] ,ktr ) 
for ( J) = 0 3 j «* (lrow* ¿*rows) 
DM[j) = O 5 


we `° 


j++ ) 


// wrap thinas upse put the data for a blank 
// the SPACE location so that it will plot on 
// the Versatec later... Then write out the 
// directory and finish up 
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more ( k = le k < 4s k++) 
thdr [ek] = 0 
M[(64] = thdr IO 
M[64] = M[64] 
mee big) © 
M(65) = rem ; 
} 
else M(651 = cpos; 
k = write(wptr,ßthdr,®8) ; 
M[257] 


EE El & 0577 ; 
EE 8 0177400) ; 


MAXCW + 
M(256) ftht + 
M(258]) lht ; 

k - seek( wotr,0,0 ) ; 

k = write( wptr, &M, 518 ) ; 
) 
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APPENDIX C. THE DATA BASE 


A. OBTAINING THE DATA BASE 


Dr. Allen V. Hershey's complete set of 1377 occidental 
characters is available in Reference 16, where Appendix A 
contains the comolete vector representation of each charac~ 
ter and Aopenaix B contains a drawing of each character. 
The vector representation data was also available locally on 
a tape at the Naval Postaraduate School's W.R. Church Com- 
puter Center; that tape, labeled NPS451, provided the data 
base for this thesis. The data was read from NPS451 onto 
another tape so that it could be used in the PDP-11/50 enz 
vironment available in the Computer Science Department's 


computer laboratory. 


Information reaardina the IBM system utility program 
E C ENER used to reac from NPS451 and to write to the tran- 
sport tape is contained in Reference 10. The information on 
either tape can be printed out for verification or other 
purposes usinq the TAPEOUT utility described in Reference 


I. 
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B. CHANGING THE ENVIRONMENT 


Once Hershey's data was initially available on the 
PDP-11, it was still not ready for manipulation. It was 
necessary to convert the EBCDIC characters that were used on 
mmee LOM=560/67 to ASCII characters that could be used on the 
PDP-11; fortunately, the "dd" shell command described in 
Reference 15 made converting the tape a fairly simple pro- 
cess. By using "dd" as follows, 


dd ifz/dev/rmt5 ofzdigit bsz80 cbsz80 skipzN count=M 
conv=ascil 


where N is the number of records to skip before starting to 


copy and M is the number of records to oe copied, the UNIX 


shell would read the EBCDIC tape in logica! records, l.e., 
card images. The EBCDIC characters were then converted to 
ASCII, trailing blanks were omitted and ‘'\n' (newline) was 


appended to the line before it was sent to the output. The 
resulting file contained a series of groups of ASCII charac- 
ters; each group was no larger than 77 characters and no 


Smaller than 23, and each group was ended by newline. 


ines first task was to strio the groups, or records, of 
unnecessary characters; each record began with "2524" and 
could contain up to 24 additional characters that were not 
coordinate pairs neeced for the vector generation, but that 
were padding characters. The following program, "cnvrt.c", 
took those records and output logical records of the form: 
EN oSSXxIrrxXxeYexSY5...X13Yi ...XkYkNn 


where 
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e C CU 


SSS = 


X1Y1 


and k must 


room for ə 


nal 


EBCDIC 


Hershey character number (describes font, etc.) 


card sequence number (one card was not 
usually enough) 


one endpoint of a vector 
be less than or equal to twelver since there was 
maximum of twelve coordinate pairs on each origi- 


input card image. 
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CNVRT 23 February 1977 CNVRT 


NAME 
envrt == convert a tape file for initial use 


SYNOPSIS 
< tapefile > > cnvrt > < pre=vector Hershey > 


DESCRIPTION 

|» After the required number of records have been read 
from the tape containing the vector representations, 
this proaram iS used to strio away extraneous charace 
ters from each card image so that only character iden- 
tıfication numbers, card sequence numbers, and the x,y 
coordinate pairs are left. This program is the first 
step ın the adaptation of the Hershey fonts. 


FILES 
SEE ALSO 


BUGS 
= The input and output files from this file must be ree 
directed at the terminal. The input files are avail- 
able on taboe, as is the entire original EBCDIC tape of 


the vector definitions. 
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/ xk 

/ x 
int aid, // 
nid, // 
numl, 17 
nume, 7% 
maxnr, {4 
endf, // 
*otrnr; IH 
char temp (3] , / 
holdt7], if 


card(80), /1 
ncardí80], // 


k / 
C E x / 
x / 


old card id nr 
new card 1d nr 


number of last character + 1 

nid of last character in this font 
pointer for array oos 

temporary holder for characters 
another temporary array... 

array to hold card images 

array for "stripped" card images 


strip; // flag--to strip or not to strio a card 
flag, // flag for outputtina characters 
go // flag to stop recursion 
ly // counter for "for" loops 
De // card column counter... 
C Sne // card sequence number 
char / 
cho, SA 
chc» // char variables for various ops 
chd, // 
che, // 
/ xk £ / 
/x PROCEDURES x / 
/ x * / 
getcard( val ) // gets one card image (a logical 
int val ; ( // record) at a time 

char jo t 7 

1205 

che = 'A' ; 

strip = Í ; 

while ( ( cardli]) getehaärl). ) i=)" \A ts ) 
itt ; 

us 0 ; 

for ( j 20; j $42 15; j** ) ( 
autc LL && ( (cardtj] 


Oc sra 
E 1 


strip 


IE strie ) 


for í 


cha 


che = 

} 
else 

{ 


cardlj] ; 


== CY 
(cardlj) == '0') ) ) { 
"EI ) save() ; 
' O ) 


compar( &cəard([j)+1] ,hold ) ; 
{ 
11 ; j <= ƏS ; i +t 2 


= cardlj] 
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meoarclt) > card [j] ; 


ttt , 
} 
) 
else 
{ 
neardit] -* cardí[J] ; 
ttt ; 
) 
) 
val * conv( ncard,4 ) ; 
return( val ) ; 
) 
save( ) ( // holds 7 characters temporarily 
char k ; 
MOI kK = 0 - k < 7 7; ktt ) 
NOVO tk] = cardl(ktie) ; 
) 
compar( arrc,arrh ) // compare 2 strings; 
char arrc[ ), ərrh( ] ; A return Jf. 0 f "z 
char k ; 
k = 0 ; 
while ( arrcí(k) z- arrhík] ) ( 
Ctt ; 
if ( k == 7 ) break ; 
} 
mark ==: 7) 
return( 1 ) ; 
else 
return( O ) ; 
) 
ESDVC arr,nr ) A Conyers a string of nrs of 
char arrl Jy, nr ; { // lenstn nr to a decimal value 
int j, Sum ; 
Shar ch ; 
sum = 05 
tor | = 0 35 j < nr 5 j++ ) Í 
ch = arrlj) ; 
PO Sum + ( (ch = *O*)*eten( nr = (jt1) ) ) >; 
} 
return( sum ) +; 
} 
ten( nr ) // returns lO*xnr 
Ent nr ; ( 
nto, sum ; 
sum = 1 5; 
um 07 j «nr - jet ) 
sum = sum * 10, 
return( sum )> 
) 
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Dech ch // got all end-points ? 
Shar ch 5 { 


int ok ; 
Switch( ch ) { 
seu: case "K's case 'L': case 'M':; 
case 'N': case 'O': case 'P': case 'Q': 
casem case ')'* 
ok 207; 
break ; 
default: 
ok = 1 ; 
} 
return( ok ) ; 
} 
finch( nr ) // removes filler chars 
unt nr ; ( 
int t ; 
ze ( (ncardinr) !- 'Nn') 88 ( qo ) ) ( 
Go Z= endch( ncard[nr] ) 7; 
nett 7 
} 
(ct: eo ( 
t - getcard( O ) ; 
IE (Pt == mic J qo = endch( che ) ; 
mneht ) ; 
} 
} . 
/ xk x / 
/* MAIN PROGRAM x / 
/ k A 
main( ) ( 
mud = 0 5 
maxnr = 3927 ; 


endf = 3729 ; 
while ( nid < maxnr ) { 


nio = cetcard( 0 ) ; 
ptr = &mcardl4j) ; 

Cen = conv( ptr,3 ) 3} 
flag = 1 ; 

qo = 1 ; 

n = 7 ; 


while ( ( temptl0] - ncard(n] ) $= '\n' ) { 
for ( t >= 1 ; ` < d ; it+ ) 
temo[i] = nceard(ntil ; 

n = n +d, 


ptr = &temole) ; 


numl = conv( temore ) å} 
num = conv( ptree ) 3} 
if ( (numl Z= nume) && (numi == 50) ) { 
tomm |: s 0; : «n ; itt ) 
putchar( ncardli) ) ; 


putchar( 'An' ) 5 
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A ) ; 


flag = 0 
Gre eebe nid = 4000 ; 
} 
} 
meee flag ) 
for € + = 0 ; i <= n ; itt ) 


putehar( ncardt1] ) 3 


fee VECTOR GENERATION 


Once the Hershey cata had been converted to ASCII and 
Stripped of extraneous digits and characters, it was con- 
verted to vector form using the "mkvec.c" program listed 
below. The output files from "cnvrt.c" provided the input 
to "mkvec.c"s these files had been arranged by font with 
upper case letters, lower case letters, and digits and spe- 
cial characters grouped in that order. A large "if ... else 
eee Statement was used to determine whether each character 
being processed was a letter or a digit or special charac= 
ter; letters were placed into the proper position by an ar- 
ray counter, and digits and special characters were run 
through a lərge case statement to determine their position 
in the array. Two additional large case statements were 


necessary to transliterate the 24 Greek and the 30 Cyrillic 


letters into their English equivalents. 


The transliterations used were taken from Reference 4 
and are reproduced on the following page. The Gothic German 
was transliterated into Enalish on a one-for-one basis, with 


the three extra lower case letters going into the octal 
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g 


U0TIP.199 TISUBAL OIIII1Á) *Z-9 HUNDIA 


Be< Oe> CHA IeV Mem 
qe, Met Neo he, Nee Xey hey ACN Le] des del ved 040 Heu neu Ve] Ney UcÁ He l çcZ Het Je 9-0 
Yep JeB3 de^ 9-9 tel gec Qed EAN qeu qes qe, Ine» IN-0 pen ye- XH OH 4 ACN Lel OFS dey 
Utd O+0 TIEN WEN rel Hey +A Hel cez Kel Jr% J-3 Yeg 1+9 grA Yeg Vey Volgjiaisug/l 
borg anamin HUXPÁ Loduo vnvan nexa Wage KOIE WILMIMN HIXOA LOdUO HWE MEIKII UJ09V 


UOT1P4911ISUPLL 39919 °T-I FUN 


Mem e A Xe? $-j nen Lej Ows dea 
Led 0-09 Jex ACU Mew Ye] yey 1e! grb ucu jez 3-9 gep Ltr? g-a Dek EM AFA KO Ses YN 
Lel ZES dtu [ta O-0 E-X NON Wen Vel Mey Ie! 9-0 HeH Z-Z +3 VEO 1+9 q*8 Vev 





codes 0173, 0174, and 0175, immediately following the "2", 
Gothic Italian was transliterated comoletely on a one=to-one 


basis. 


This program put the digitization into the form that was 
used for the TEKTRONIX proaram described in Appendix De and 
e data base from which the dot matrix character 


representations were made. 





MKVEC 17 March 1977 MKVEC 

NAME 
mkvec -- put a file into vector format 

SYNOPSIS 
mkvec < Hershey font > 

DESCRIPTION 
The output from "envrt" provides the input for tihs 
program; this program takes each character identifica- 
tion number, goes through each card with that charac- 
ter 10, and puts each x;y coordinate pair into a 
l6ö=-bit word. The left byte receives the x coordinate 
and the right byte receives the y coordinate. 
The program also sets up a 256 word directory for each 
Pont. The even numbered words from 0 to 254 
‘Correspond to the ASCII codes from 0 to 0177 and cone» 
tain the widths of the aoprooriate character. The odd 
numbered words contain pointers to the byte at which 
the vector definition of the character begins. This 
program's outout files provided the data base from 
which "drawhf" and "makehf" obtain their vector defin- 
imearons fOr either disolay or digitization. 

ENU ES 

SEE ALSO 
makehf, cnvrt 

BUGS 


"mkvec" automatically writes the vector files to 
directory "/usr/doyle/hfonts.f", which might not be in 
existance at this point in time. If this program must 
be used, then a simple modification to the source code 
will write the output to any file desired. 





#define 
Bdefine 
#define 
#define 
Adefine 
Rdefine 
4define 
#define 
&define 
define 
#define 
&define 
#define 
#define 
#define 
#define 
#define 
Rdefine 
Rdefine 
#define 
define 


ioe “(1 

int Dos 
apos 
num3 
i dh, 
ktr>, 
Cw 
xir; 
k O t r` 


char 


Char 
char 
char 


setcar( 
int x, 


Lë k/ 
LX mkvec.c x 
/ * x / 
SR 0 // Simplex Roman 
DR 1 // Duplex Roman 
CR 2 // Complex Roman 
TR 3 // Triplex Roman 
CI 4 // Complex Italic 
BT > // Triplex Italic 
SS 6 // Simplex Script 
CS 7 // Complex Script 
SG 8 // Simplex Greek 
CG 9 // Complex Greek 
GE 10 // Gothic English 
GG Iu // Gothic German 
GI 12 // Gothic Italian 
E 15 // Complex Cyrillic 
NOTNUM -1 
EOC 05 0658985 octal for 
EOF 9999 // end of font 
ENDFONT 9000 // end of font 
R 0 // open a file for 
W 1 // open a file for 
MODE 0644 // access to files 
0192] ; 
it, 
, 
r 
eard (30), 
xyval (144) [2], 
temp (4), 
flag, 
Ekt; 
numi, 
nume, 
C Sne 
infile[ ] ( 
"/e90vVie.0i/fonts/-~-.out” } 


outfilel ) { 
"/usr/doyle/hfonts.f/==.f" ) 


rotr, 


x, y ) 
y > ( 


wotr > 


"5050" 


for ME] 
n 

reading 
writing 
created 





AE 8& 0577 ) 1| ( y««8 ) ; 
) 
ExrFcdr( x, y ) 
int x, y :; Í 
mu Z= ( M[x] & 0177400 ) ! y 3} 
} 
getcard( ) { 
Ent *p, 1 > 
char bufíl, t ; 
í; Ñ ss Ias 0 ; 
t = read( rptr, but, 1 ) ; 
while ( (cəard[i] * buf [0]) != 'Nn' ) 
{ 
t = read( rotr, buf, 1 ) ; 
itt ; 
) 
idh = conv( card,4& ) ; 
p = &cardí4] ; 
Som = conv( 09,3); 
) jl meno getcard (} 
start( ) { 
int j 7 
mr j = 0 3 j < 256 5 ¡++ ) 
May) = O ; | 
rotr = open( infile, R ) ; 
wotr = creat( outfile, MODE ) ; 
dh = 0 ; 
ktr = 64 ; 
aer = 0 ; 
flag = 1 ; 
apos = 256 ; 
} // end start 
reset( ) { 
Ent y + 
M(0) = M[1]) = O ; 
M(əoos] = EOF ; 
for ( i - 05; 1 <= apos ; itt ) 
write( wptr, &M{i], 2 ) 5 
} // end reset 


notnum( val ) 


int yal ; { // is this a number or char? 
int ok ; 
if ( (val >= 700) 82 (val <= 734) ) 
{ 
if ( val <= 715 ) ok = val = 700 ; 
else ok = val ; 
} ZIZSR, SG, SS number 
else 
mec yal >= 2200) 32 (val <= 2275) ) 
{ 





(e 2215 ) ok = val = 2200 ; 
else ok = val ; 
) // CR, CG, CI number 
else 
if ( (val >= 2700) 83 (val <= 2728) ) 
ok = val = 2700 ? 
// DR number 
else 
if ( (val >= 2750) 8&8& (val <= 2778) ) 
ok = val - 2750 ; 
// CS number 
else 
if ( (val >= 3200) && (val <= 3228) ) 
ok = val = 3200 5 
// TR number 
else 
if ( (val >= 3250) 82 (val <= 3278) ) 
ok = va} - 32050 ; 
// TI number 
else 
if ( (val >= 3700) 882 (val <= 3728) 
ok = val - 3700 ; 
// GE, 6G, GI number 
else 
ok = NOTNUM ; 
ne Sa Character... 
Mecurn( ok ) >; 
} // end notnum 
cyr( val ) 
int val; ( 
nt ok; 
Switch( val ) ( 
Case c801: ZÀ 
Ok = 65; break; 
case 2802: // 8 
ok = 66; breaks 
case 2803: // N 
ok = 86; break; 
case 2804; // G 
ok = 71; break; 
case 2805: // 0 
ok = 68; breaks 
case 2806: VE 
ok - 69; break; 
case 2807: II + 
ok = 94; break, 


) 





Cose 
O k 


Case 
ok 


case 
ok 


Case 
ok 


Case 
ok 


esse 
ok 


case 
ok 


case 
Ok 


case 
ok 


case 
ok 


Case 
ok 


case 
Ok 


case 
ok 


case 
ok 


case 
ok 


case 
ok 


case 
ok 


case 
ok 


case 


2824: 
= 35; 


2025: 
= 64; 


2826: 


e 
break; 


// 
break, 


/ / 
break; 


/ / 
break; 


/ / 
break; 


/ / 
oreak; 


// 
break; 


77 
break; 


// 
breaks; 


A 
oreak; 


/ / 
break, 


Zu 
break; 


/ / 
break; 


/ / 
break, 


/ / 
break; 


/ / 
break; 


LA 
break, 


/1 
break, 


/ / 





ok 


case 
ok 


case 
ok 


case 
ok 


case 
ok 


case 
ok 


case 
ok 


case 
ok 


case 
ok 


Case 
ok 


case 
ok 


case 
ok 
case 


ok 


case 
ok 


case 
ok 


case 
ok 


case 
ok 


case 
ok 


case 


2904: 
= 103; 


2905: 
= 100; 
2906: 
= 101; 


2907: 


= 1; 


“908: 
= 122; 


2909: 
= 200,5; 


2910: 
2 121; 


eorr: 


break; 


/ 
break; 


// 
break; 


Z 
break; 


// 
break, 


Z 
break; 


SE 
break; 


AN. 
break, 


/ 41 
oreak? 


/ 1 


break; 


/ / 
break; 


/ / 
break; 


Vf. 
break; 


TA: 


break, 


// 
break; 


/ 4 
break; 


// 
break; 


// 
break; 


036 


Wee 


023 


020 


021 


V 


Q 


d 


e 


z 


1 


y 


k 





ok 


case 
ok 


case 
ok 


case 
ok 


case 
ok 


case 
ok 


case 
ok 


case 
ok 


case 
ok 


case 
ok 


case 
ok 


case 
ok 


case 
ok 
case 
ok 


case 
ok 


case 
ok 


case 
ok 


case 
ok 


case 
ok 


2924: 
2 50; 
2925: 
= 22; 


2926: 
= 43; 


2927: 
= 96; 


2928: 
umo! 


2929: 
= 


2930: 
= 31; 


break; 


// 
break; 


// 
break; 


m 


n 


O 


break; 


// 
breaks 


/ / 
break; 


/ / 
oreak; 


// 
break; 


p 


Ñ 


s 


t 


// u 


break; 


// 
break; 


7 
oreak; 


// 


break; 


Z 


break; 


e 


break; 


// 


break» 


IF 


breaks 


/ / 


break; 


oreak; 


/ / 


break, 


f 


h 


026 


0140 


004 


057 





case 2931: TAS 
ok = 60; breaks 


case 2932; // > 
ok = coe; break; 
} 
return( ok ) ; 
} // end cyr 


grkch( val ) 


int val ; ( // which Greek character? 
int ok ; 


Switch( val ) { 


case 529: case 2029: // G 
ee = 71; break ; 


case 532: case 2032: // 7 
ok = 90; break; 


case ase 2033: // H 
ok = 723 break; 


case 534: case 92034: // Q 
ok = 81; break; 


case 536: case 2036: // K 
ok = 75; break; 


case 537: case 2037: ‚I L 
ok z 76; break; 


case 538: case 2058: // M 
ok = /7; break, 


case 539: case 2039: IA N 
ok = 78; break; 


case 540: case 2040: // X 
ok = 88; break; 


case 543: case 2043: // R 
ok = 82; break, 


case 544: case 20443 // S 
ok 85; oreak; 


case 545: case 2045; See SE 
ok = 84; break; 


case 546: case 2046: FE U 
ok = 85; break; 


120 





ease 547: 
ok = 


case 
70; 


case 548: 
ok = 


case 
67; 


case 549: case 
ok = 89; 


case 550: case 
ok = 87; 


case 629: 
ok = 


case 
103; 


Case 63520: 
ok = 


case 
20, 


case 655: case 
ok = 104; 


case 634: 
ok = 


case 
115; 


case 63563 
ok = 


case 
107; 


ease 637: 
ok - 


case 
108; 


case 638: 
ok = 


case 
109; 


case 639; 
ok = 


c ase 
110; 


case 640: 
ok = 


case 
120; 


case 643: case 
ok = 114; 


case 644: 
ok = 


case 
119; 


Gace oS; 
ok = 


Case 
116; 


case 646: case 
zo. 


case 647: case 
is 102; 


case 648: case 


Sou? 


break; 


2048: 


break; 


2049: 


break; 


2050: 


break; 


ele 
break; 


2132: 
break; 


2155: 
break; 


2134: 
break; 


213656: 
break; 


a 
breaks 


2158: 
break; 


139: 
break; 


2140: 
break; 


ergs: 
break, 


2144: 
break; 


eu 
break; 


2136: 
break; 


21rd: 
break; 


evar: 


77 


// 


T 


/ / 


OTs 


ar 


/ / 


/ / 


Gë 


/ / 


/ / 


IH 


"4 


/ / 


// 


/ / 


/ / 


I 


// 


be | 





ok = 99; break; 


case 649: case 2149: // y 
ok = 121; break; 


esse 650: case 2150: II w 
ok = 119; break; 


"A ADA Oo Cu 8 


default: 
ok = ktr; break; 
) 
return( ok ) ; 


) 


which( val ) 
int val 3} ( 


int ok ; 
Jf ( val < 10 ) ok 
else 
Switch( val ) 
case 10: 
ok = 46 5 
Case 11: 
ok = 44 ; 
case 12: 
ok = 58 ; 
case 13: 
ok = S9 ; 
case 14: 
ok = 35 ; 
ease 15: 
ok = 65 ; 
case 716: case 
case 27: 
ok = 39 ; 


ease 717: case 
case 28: 
ok = $4; b 


case 18: case 
case 2272: 


ok = 38 ; 
case 719: case 
case 19: 

ele SÓ } 


= yal + 48 
{ 


/ 4 s 
break ; 


// à 


break ; 


ES 


break 7 


/1 
break ; 


` 


GE GE 


break ; 


Lis 


break ; 
2216: // ' 
break ; 

Geri ems n 
reak ; 

7343 // $8 
break + 


ponds: 7/9 


oreak ; 


Jo 


1) 





case 720* case 
case 20: 

ok = 47 3} 
case 721* case 
case 21: 

ok = dO ; 
case 722: case 
case 22: 

ok = 4] ; 
case 728: case 
case o5; 

ok = 42 ; 
case 724: case 
case 24: 

ok = 45 ; 
case 725: case 
ease eS: 

ok = 43 5 
case /26: case 
case del 

Gk = 61 5 
case 723: case 


ok = 124 + 


case 733: case 
ok = 35 ; 


case 2223: 
ok = 91 ; 


case 2224: 
EE 


case 2225: 
ok = 123 ; 


case 2226: 
ok = 125 ; 


case 2281: 
ok = 60 +; 


case 2202: 
ok = 62 ; 


case 2262: 
ok = 94 ; 


EO 
break 
Bee. 
break 
DICITUR 
break 
ge 
break 
2251: 
break 
ee Ole: 
break 
2238: 
break 


2229: 


break 


2275: 
break 


break 


break 


break 


break 


break 


/ / 


y 


° 
, 


/ / 


e 
8 


Ié 


° 
, 


HH 


e 
, 


/ / 


° 
, 


/ / 


o 
, 


d 4 


, 


/ / 


° 
a 


// 
break 


? 


// 
break 


° 
, 


// 


° 
, 


⁄ 


. 
, 


/ / 


° 
, 


123 


] 


{ 





cose 265: 2 
ok = 95 ; break ; 


case 2271: 727 EL 
ok = 37 ; break ; 


case 2273: // 3 
ok = 64 ; break ; 


default: 
ok = 0 3} break ; 


} 
return( ok ) 


=e 


IS end 


Su ldacht ) ( 


int p, test ; 


int k + 


) 


conv( arronr ) 


p = apos ; 

ND kK 20; k < x1 + k++ ) { 
setcar( apos, ,xyval[k] [0] ) 
setcdr( apos,xyval[k] (11 ) 
apos++ ; 
; 

test = M{apos = 1) ; 

mie test != ENC ) 
perrorí("stooped before EOC") 


return( op ) ; 


of which 


VP MECOMVERtTS a String of numbers of 


char arri ], nr ; ( // length nr to a decimal value 


} 


ten( nr ) 
int nr 


} 


int j sum 3} 
emar ch ; 
sum = 0 ; 
Meme. j >= 0; Jj < nr ; j++ ) { 
ch = arrlj] ; 
sum = § 
} 
return( sum ) ; 


( 
int sum + 
sum 
Lor 


, 


^^ H te WO 


1 
j 

sum 
return( 


( WH H s C 


main( argc, arov ) 
mt argc $ 


124 


~ 


Ë 
um + (ch = "O° )atenm( ar = (j*1) ) ) ; 


// returns 10x*xxnr 





char *argví)] ; í 

En, *p, last » biach + 
Ent k ; 

char greek, cyrillic: 


infilell7) = outfile(20) = argvll) (0) +; 

infile(18] = outfileflel) = argv(l) (1) ; 

bigch = 26 ; 

greek = 0 ; 

cyrillic = 0 ; 

meer infile(i8)] == 'G' ) { 
Ki ífile[17] != 'G' ) ( bigch = 24; greek = 1 ; } 
} 

Eu unfileft18] z-* 'C' ) cyrillic = 1 3 


start( ) ; 
getcard() ; 


while ( idn != ENDFONT ) X 


x4 = O ; 

last = idh 5 

ktr = ktr + 1 ; 
ektr = cktr + |, 


while ( idh == last ) d 


n = 7, 


wnile ( (temp(0] = cardin?) ¿= “An* ) { 
for ( k = 15 k < 97 k++ ) 
tempÍk) = cardintk) ; 
n z n + d ; 
mom = &tempople) ; 
numl = conv( tempore ) +; 
nume = conv( pre ) +; 
if ( (csn z= 1) && (n == 11) ) d 
if ( numi > 50 ) numi = 100 = numi ; 


cw = numi + nume 5 
} 
else 
{ 
xyval (xi) (0) = numi $ 
xyval (x1) (1] = nume +; 
x1 ++ 5 
} 
} 
getcard( ) ; 
} 
Becker > bioch ) && [ flag ) ) { 
ktr = 97 ; 
ekee = Op; : 
flag = 0 ; 
} 
if ( (num3 = notnum(last)) == NOTNUM ) 
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( 
lee greek ) posit - grkch( last ) * e ; 
osit ce yr last I) * 2, 


else if ( cyrillic ) e 
else posit = ktr * 2 ; 
} 
else 
{ 
posit = which( num3 ) * o ; 
ktr = 0 ; 
} 
ptr = buiidch( ) ; 
MI posit ] = cw ; 
MI posit * 1] 7 otr ; 


) 
reset( ) ; 


// end of man... 


DA 
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APPENDIX D. FONT OUTPUT ROUTINES 


Bee VERIFYING THE VECTOR DATA 


After all of the fonts had been converted into vector 
form, "drawhf.c" was written to allow visual inspection of 
each character in each font. This inspection ensured that 
all of the data had been transformed correctly and was 
available for further use in the vector to dot matrix 
conversion. It also revealed several minor omissions that 
had allowed special cases to slio through the vector genera- 


t1on proaram described in oaragraph C of Appendix C. 


- 


This proaram is available as source code on directory 
"/.fonts.02/hershey" and is listed as "drawhf.c". The obs 
ject code program used to display the characters on the TEK- 
TRONIX 3014 is available on directory "/.fonts.01/hftools". 
Any character from any of the fonts currently available can 
be drawn by changing to the directory above and typing 
MORSA FONT", where FONT is a three-character code specify- 
ing the font desired. Fonts available are: 

MS. .oi|implex Roman 
WDR.....Duplex Roman 

Hos. ..Comolex Roman 

n Iriplex Roman 

a. ¿Comolex Italic ( 


Ben... Triblex Italie 


Mey 





ia Simolex Script 
H OS Complex Script 
HSG.....Simplex Greek 
HCG.....Complex Greek 
Wet. + Gothic English 
HGG.....Gothic German 
Denen ...Gothic Italian 


Mec. ...Comolex Cyrillic 


Many special characters are available only in the com- 
plex fonts; however, the user is notified 1f the character 
desired is not available in the font currently being 
displayed. The size of the character drawn on the CRI can 
be changed by adding a See parameter to the program call, 
1.0.^,' "drawhf FONT SIZE". If no "SIZE" parameter is given, 
the program defaults to a value of eight; this size was 
chosen because it made all of the vectors visible, and be- 
cause it minimized the distortion noticeable on the short 
vectors used to aoproximate curves. Parameters larger than 


20 ana less than one will default to those values. 
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DRAWHF Wi Maremma or 7 DRAWHF 


NAME 
drawhf -- draw a Hershey font on the TEKTRONIX 4014 

SYNOPSIS 
drawhf « Hershey font » [ size ] 

DESCRIPTION 
This program draws characters from the selected 
Hershey font on the TEKTRONIX 4014, The fonts must be 
selected from the list given on the oreceding pages. 
The size of the character display on the CRT can be 
Changed by executing the program with an optional size 
parameter. This should be an integer between 1 and 
20. The default value is 8. 

FI ES 

SEE ALSO 
makehf 

BUGS 


Only one character can be drawn at a time. It is also 
necessary to terminate the program and re-execute it 
to look at another font. 
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/ xk K 


/ * drawhf.c *x / 
/ x k Z 

Rdefine EE 9999 
#define EOC 031062 
#define RES 1024 
#define X 512 
#define Y Sle 
#define R 0 
#define d 1 
int M[2S6] , 

fotr, 

Stor e 
desst ch (120] ; 


char path] { 
"/.fonts.01/hershey/=-=.v" 
) ; 

chər flag 3} , 


main( argc, arav ) 

int aroc ; 

char *arov[] ; { 

int xy ys ktr , Xx» YY 5 

MS) p, numl, numo, size ; 

char ibuf(20], io, k „ stop ,„ times; 
char doit ; 


move t (960) ; 

term(5, RES) ; 

EnA] s argví11(1] ; 
pathí20] - argv(1] i2] ; 


if ( argc == 3) { 
size = atoi( argv{2]) ) ; 
if ( size > 20 ) size = 20 ; 
else if ( size <= 1 ) size = | ; 
) 

else size = 8 ; 


fotr = open( path, R ) ; 
k = read( fptr, M, Sie ) ; 


uw] = *0* ; 

Enter tft ibuf(0) != ')' ) { 
Jus jp = O ; 
flag = 1 5 


erase() ; 
movabs(100,800) ; 
anmode() ; 
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ai input the desired character followed by c/r:") 3 
mame 4 Cibuflip) = getchar()) != "'Nn' ) 


iptt ; 
xx Z= X ; 
yy = Y; 
movaəbs(xx,yy) ; 
PE num! * ibuft0l] )««1! ; 


while ( flag ) ( 

stop = times = 1 ; 

ptr = M(p+1]<<1 ; 

Ea potr == 0) 4 
movabs(100,200) ; 
anmode() ; 
Bestellnr: 46° 8 1SHmMOL eavallaote in this font... ", 

ibuft0]) ; 

stop = 0, 
} 

else k = seek( fotr, otr, 0 ) ; 


while ( stoo ) ( 


got s li; 
k = read( fptr, ibuf, 2 ) ; 
x = 3bofll] ; 
y = 1buf [0] ; 
J Cn 75 50 ) xr Z= x = 100 ; 
if ( y > 50 ) y z y = 100 ; 
if ( times ) { 
x = xx + (x * size) ; 
y Z yy = (y * size) ; 
movabs(x,y) ; 
doit = O ; 
times = Q ; 
} 
if ( x == 50 ) { 
ae SO) { 
DL —sstop 2 0 | 
else perrorí"bad y value...") ; 
) 
else 
( 
k - read( fptr» ibuf, 2 ) ; 
Laws g-obuftibl) > 50 ) x $5 x = 100 ; 
if ( (y = ibuf[0]) > 50 ) y = y = 100 ; 
x Z xx + (x * size) ; 
y "yy - (y * size) ; 
movabs(x,y) 7 
} 
} 
else ( 
if ( doit ) 
{ 
x = xx ¢ (x *r size) ; 
y Z yy = (y * size) ; 
drwabs(x,y) ; 
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flag = 0 ; 
tsend() ; 
} 


movabs(100,150) ; 


anmode() ; 
antf ("enter CeO Conr Nuer | Gyr to exit:") | 


io = 0 ,; 

while (€ Cibuflio] = getchar()) != "Nn' ) 
jo+t+ ; 

} 


erase() ; 
mumntt(0,750) ; 
} 


A Samole of the CRT display from “drawhf" is located on 


the following page. 


VERIFYING DIGITIZED FONTS 


Mont” 1s a font manipulation program designed to 
display an entire digitized font file by walking through the 
header table and plotting all of the characters that are de- 
fined in the font. It will! print out one font at a time or 
as many as are needed, depending upon the arguments. The 
program accepts full oath names as input; these arguments 
can be used in several ways, as is demonstrated by the exam- 


ples aiven below. AIl of these are valid calls to "orfont’s 


1) prfont HCC12 BDJ8 
The user wants to display fonts HCCie and BDJ8, both of 


mem must exist on directory "/.fonts.01/font". 





:31XƏ oq A/D [ fanuTquod o4 4/2 aayua 


MiA4/2 fq pamo]]03 vaqoeueyo peutsap ayy qndut 


"Drawhf" CRT Display 


FIGURE B-1. 
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Sëlzpp-teont /usr/doyle/fonts/Hx 
The user desires to display all of the Hershey fonts lo- 


cated on a specified directory. 


35) prfont SIGNA) HGGl16 BDR2S HCG10 /usr/mecord/temp 
The user wants to display four files from directory 
E ronts.01/font" and a file called "temp" on directory 


ExUsr/mccord". 


Commands of the type "prfont a", "prfont Hx", and 
Mont  BD*", will not display all of the fonts on the main 
font directory, nor will they display an» combination of 
them. To disolay the entire collection of fonts or selected 
groups of them, the user must change directories to 
"/.fonts.0l/font" and tyoe "../prfont « ARG »", where ARG is 
some font name combination of the form *, Hx, MATH*, and so 


one 


"Prfont" will hancle spacing and ocagebreaks, and will 
print the font file name with each font. With fonts above 
IE DO int, the proaram may tell you that it is out of 
memory and exit. It will suagest that you try a smaller 
pagewidth, which will) cause your fonts to be plotted with 


fewer characters per line. 





PRFONT 


NAME 


SYNOPS 


eWay 1977 PRFONT 


Banane == display a digitized font on the VERSATEC 
plotter/printer 


LS 
.prfont [-pagewioth) «€ SAIL font > | < Hershey font > | 
< complete path name > 
PTION 


DESCRI 


FILES 


SEE AL 


BUGS 


This program allows the user to disolay a complete di- 
gitized font file on the VERSATEC olotter/printer, so 
that he can see how it wil! actually == look. It is 
especially useful in seeing whether or not a Hershey 
font will be acceptable after digitization. 


On fonts larger than 40-42 point, it may be necessary 
to decrease the pagewidth used by "prfont" to deter- 
mine the size of its plot buffer. If this becomes 
necessary, the program will exit and suggest that you 
try a smaller pagewidth. Pagewidth is initialized to 
216 bytes. 


/dev/rvp 
/dev/spp 


50 
makehf, edf 


BErprtont' "occasionally prints some extra dots and lines 
after completing the last character in the font direc- 
COPY. 
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/ xk x / 


/ x or font, x / 
/ kx * / 
define SPACE 1 MS Ach vertical space 
define TOP 230 // too margin 


Rdefine PAGEHT 14x100 

int roww, rows? 

int linecount PAGEHT; 

int pagewth; 

int prdev, pldev, infont; 
int ht, maxw, |ht, fp: 

int head, tail, nodeotr; 
mue2erotll, ndrí2561; 

Char *lp, *p; 

char ff 014; char n! 01e; 
char headerí(40] ("/.fonts.01/font/") ; 
char prbuf [1352], plbuf (264] ; 


struct cnode d 
int cc; //char code 
char *optr; //=>1st raster line 
char *]ptr; //=> next raster line 
int rw; //raster line width 
int bytes, //bytes per raster line 
int lk; //\eft kern 
int rft; //rows from top 
fae Orcs //data row count 


est (129): 
struct cnode *a; 
struct cnode *fset (128); 


mainlargc, argv) 


int argc}? char **karovs; ( 

register int i, argotr; 

char go? 

argotr = 1; 

ifl(prdevzopen("/dev/spo",1)) < 0) { 
Brintf("cannot open printer");exit();} 

ifCCopldevzooen("/dev/rvo",1)) « 0) ( 


Entf" cannot oboen plotter");ex1it();7) 
if Cargv[1) [0] == '-') {//reset pagewth 
Dagewth - ato1( &argví11 (1) ); go = 1; ; 
else { vpagewth = 2167 go = 0; ) 


init(); 

while(--arac != go) {//process all files 
p - aravílargptr*taol; 
if ( *p == !'/' ) ( //7/full! pathname 


if ( Cfpzopen(argvtaraotrtgol,0)0) < 0) í 
printf("cannot open Zs",aravlaroptr+ao)): 
exit(); } 

printf("Zs oocened....",argvíargptrtgol ): 

} 

else ( //oreoena /fonts.01/font 





onl; (header[i]= *xpł+) != '!'\0'37i+t+t) 3} 
if((fožopen(header,0)) < 0) { 
printf("cannot ooen Zs",header);exit();) 
printf("Zs opened.....",header); 
) 
infont = head = tail = nodeptr = roww = 0; 
read(fo,hdr,512); read(fo,&ht,2); 
read(fo,&$maxw,ó); read(fp,&lht,2); 
check(); //check for bad font file 
if ( ht <= ño ) í 
//set vert spacing 
if (ht <= 40) rows = d 3} 


else rows 2 3 ; 
} 
else rows = 4 ; 


//ogbk if font display won't fit 
if (nroom(rows*ht * 40)) pagebreak(); 
p = prbuf; for(i=0-1<60;1++) xott = ' ; 
for«i=0;,(*ot+ = arav[argptrt*taol [1])) 1s 'NO';i*t); 
kp = nl; 
//center, write font name 
write(ordev,orbuf,it62); 
for(i1z0;i1«25;1**) write(lpldev,zero,2); 
linecount =+ 25; 
while (1) { 

getrow(); 

putrow(); 

jí (irnfost > lel) Break; 


t 


) 

close(fo); printf("closedNn"); argptrt**; 
//if need be, pcbk 

if(nroom(SPACE*2)) pagebreak(); 

else space(SPACE*e); 


} 

exit(); 
} 
ea t () { 

register int i; 

MOS =0+1<128+i1++) fsetlil = &clistlil; 
} 


pagebreak() { //page eject 
int 1; 
char err, 
err - cvers(oldev, 020); 
if ( err == =1 ) ( 
pontf("invalid filedes in pagebreakin"); 


exit(); 

) 

for (i120; 1«TOP;1**) write(pldev,zero,2): 
linecount = TOP; 


} 


etro) (4 //get a row of chars to plot 


137 





if(tail) { 


roww 7 fset[*tttaill]-»bytes; 
head = tailtt; 
} 
while (1) { 
if(getdef()) { 
if(roww t fsetí(taill-»bytes «7 oagewth) 
roww =+ fsetÍtail]->bytes; 
else (tail--; ++tinfont; break;} 
if (+tinfont > 127) break; 
tailtt; 
} 
else if(ttinfont > 127) break; 
) 


) 


putrow() ( //olot the row of characters 
register int h,1,1]1; int t; 
Struct cnode k*ptr; 
for(h=0; h < hes htt) { 
o = &plouf [24]; 
ptr = fset[(t = head)]; 
for(1=nead;l<=təil;l]++) { 
if (otr-»drc) ( 
if(h »- ptr-»rft && h «€ ptr-»rfttptr-»drc) 
//lp-» next raster line 
lo = ptr=>lptr;} 
// do it by bytes 
for(i=071<otr=>bytessitt) 
*ptt - kliptt; 
//uodate lotr for next pass 
ptr-»lptr =+ ptr-»bytes; 
} 
//blank line 
else for(i=-0,i<Sptr->bytes;it+t+t) *p++ = 0; 


) 

//olank character 

else for(iz0;i«otr-»bytes;i1t*) *p++ = 0; 
Stre= fsetit+tis 


} 
pilot lo raster lime of row of characters 
write(pldev,plbuf,roof(rowwtoa4)); 
) 
//row plotted, plot some white space 
for(hz0;h«5;h**) write(oldev,2ero;2); 
linecount =+ ht+5; 
//free bytes in reverse order 
forli=tail;si>=head;i-=) 
if(fset li] =>optr) 
free(fset[i)->optr); 
) 


int getdef() { 
int blkc,bytc; register i; 
if (hartinfontx*x21) ( 





e= (hdr[infontx2]&0177800) >> 8; 
blkc =& 0377; 
byte 2 hdrlinfontx*r2+1)]; 
meeolee) 4 //otr is in blks and bytes 
seek(fp,blkc,3); seek(fp,bytc,1); ) 
else seek(fo,bytc,0); 
getnode(); 
a=>cc = infont; read(fp,8a->rw,2); 
read(fp,&a-»1k,2); read(fp,&a-»rft,20); 
read(fp,&a-»drc,2); 
a-»bytes 2 (a->rw%8 == 0) ? a->rw/8 : a->rw/8rl1; 
if€fcheck()) 1 //check for bad char dimensions 
if(a-»arc) { //need bytes?, call alloc 
if((iza-»optrza-»lptrzalloc(a-»drc*a-»bytes))«0)t( 
OPIC Nmouc of memory...) 
printf("use a smaller pagewidth\n"); 
exit(); } 
read(fp,a->lotr,a->drc*ka->bytes); 
} 
return(1); 
) 
} 
return(0); 
) 


getnode() { 
if(nodeptr > 127) { 
printf("overflow"); exit()7} 
a = fsetinodeotr++]; 
a->optr = a->Iptr = 0; 


} 


Meee hoo f (x) 
int x; ( //send plotter even % bytes only 


if(x%2 == 0) return(x);: 
//for some reason 264 bytes crashes program 
if(x == 2653) return(262); 
ko = 07 return(ttx); 
} 
space(x) 
int x; ( //plot x 1/4 inches Space 
int i; 
for(i207i«x*50;it*) write(pldev,zero,2)* 
linecount =+ x*50; 
} 
check() { //orint then exit on bad file 
Eae O i maxw < 0 1! Iht < 0 ii 
mum» 756 |) maxw > 256 ii Iht > ht) { 


printf("bad file")? exit); 
} 


int nroom(x) 
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MN ren 1 there are not x plot lines 
//left before bottom; otherwise, 0 
if(linecount t x » PAGEHT) return(1); 
else return(0); 
) 


fcheck() { //if bad chardef, rtn 0 to skio it 
//otherwise; rtn 1. 


if ( (a-»ru«0 i1 a-»rw»055) ||! (a-»rft«0 1! a-»rft»255) 
ií (a->1k<0 5 a->1k>255) 11 (a-»drc«0 1! a-»drc»255) 
) { 


printf €"\ninvalid value for character ‘%c'\n",infont); 
emer e mw ZdNtrft ZdNtlk 4Zd\tdre Zd\n",a=2rw, 
a-»rft,a-»]lk,a-»drc); 


return(0); 
) 
else return(1); 


ROUSING THE DIGITIZED FONTS 


"Signmkr" is a program with limited text processing 
Mempooilities designec to fill an interim gap in the compu- 
terized typesettina system at NPS. It was designed to give 
(e ser a limited means of outputting small files that re- 
cuired the use of the fonts from the data base; when a vir- 
tual tyoesetter that will accept fonts with variable dimen- 
sions is developed, the "signmkr" can be used as a novelty 
program to generate signs and other small files that use ex- 
otic fonts.  "Signmkr" can center lines of text, leave blank 
lines, cause pagebreaks and poaragraphing, and can change 
font styles from line to line. The user may also insert 
literal codes to have a certain special character used in 
his output. The use of these commands is exolained in the 
next paragraph; unless otherwise indicated, blanks are op- 


tional after commands but are recommended in most cases to 
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improve readability. 


Commands accepted by "signmkr" are listed below. The 
letters "ESC" preceding each command represent the ASCII es- 
MApe character at octal code 055, and "Nn" is the standard 
"newline" character (octal 012) usea to represent carriage 
return. Each of the following commands must begin at the 


beainning of a line and some must be on lines by themselves. 


a) ESCe < one line of text > 


The "center" command centers one and only one line of 
text» and that line is the line immediately following the 
command. This requires the user to use this command in each 
line to be centered. If a line is too long to be centered, 
then "signmkr" will inform the user of this and ignore the 


line, 


B) ESCf< SAIL font > | < Hershey font > | 
< complete path name > 


The "change font" command allows the user to change the 
font being used for typesetting; it must be used only at the 
head of a line or on a line by itself. A blank must not be 


left between the command and the new font name. 


eye ESCooNn 


This is the "pagepreak" command and is similar to the 


"bo" command used in NROFF. It sends a form-feed signal to 
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the VERSATEC and re=positions the text to the top of a new 


page. The command should be used on a line by itself. 


añ ESCppAn 


The "begin paragraoh" command indents the text line for 
paragraphing. The size of the indent is determined by the 
size of the current font. Like the "pagebreak" command» it 


should be on a line by itself. 


e) ESCs< decimal number > | < octal number > 


The "space" command inserts blank lines within the text. 
The height of the blank line is equal to the font height. A 


blank must not be left between the command and the number. 


The following command may be used at any place within an in- 


Out line 3: 


G L SCo< octal nr > | «€ decimal nr > 


The "literal" command can be used to request a certain 
K s or decimal code that will be used to access a charac- 
ter within the current font. The command may be .dsed at any 
point within a line, but it must not be followed by a blank. 
This command is useful to access either characters that the 
user may have inserted within a font file during an edit 
session, or to access characters from a SAIL font whose 


character codes corresoond to control characters in ASCII. 
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Octal numbers begin with the character '0' and do not cone 


Ean the numbers 8 or 9; e.g., 0176 and 0105. 


Users with previous experience with Dee processing pro- 
grams should have no trouble in adapting to "signmkr". Howe 
ever, caution should be exercised when using the  "ESCpp" 
(paragraph) and "“ESCF" (change fonts) commands at the same 


meme in the input file. The two sequences of input lines 


(sa) ESCf BDR3 (o) ESCf BDR8 
ESCppNn ESCf HTR30\n 
ESC# HTR30\N ESCop\n 
< input text > < input text > 
are not identical. Sequence (a) will] set up the indentation 


for the next paragraph assuming a font height of 83 point, 
but the text will actually be set in 30 point type, so the 
indentation will not be obvious. Sequence (b) changes the 
font height to 30 point and then indents based on that 


height instead of 8 coint. 
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SIGNMKR lo May 1977 SIGNMKR 


NAME 
usni == 3 orogram with limited text processing 
ability; useful with small projects 
that require exotic fonts, or for 
making cute signs 
SYNOPSIS 
sıanmkr < source file > 
DESCRIPTION 
This program is capable of limited typesetting func- 
tions using commands described more fully above. [It 
reads the inout text and commands from a file located 
on the same directory as the program, in most cases 
ac tonts.0l'. 
When designing input files for the signmaker, the user 
should try to do as much of the formatting for the 
output file as is possible. The signmaker will, in 
general, give you back what you put in; it is very 
good at truncating lines that are too long and at not 
Ailing lines that may be too short. 
Command Summary: 
FSC Center one line of text 
ESCÍ Change the current font 
E5Cog Cause a cagebreak 
F SCpo Begin a paragraph 
ESCs Soace down n lines 
ESCo Interpret the following number as a 
literal character code 
LES 
See ALSO 
BUGS 
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Kate * / 


/% signmkr.c * / 


gdefine TOP 230 // top margin 
#define PAGEHT 14*100 

int roww; 

int sl! 0, 

int pagewth 216; 

int linecount PAGEHT; 

int pldev, infont, in, base; 

int ht, maxw, Iht; fo lô; T? 

int nodeptr, ooenbits; 

mat zerol3e), hdrí(2501]; 

char *lp, *p, *t, *n, *pl; 

emer esc 05457 char blank 0405 int es 
Char headerí(40)] ("/.fonts.01/font/") 
AnS? pbuf (90), tbuf1901, plbuf 1204) ; 
char fmark[128]; 

char fontname (20), ochar(10); 


`. 


struct cnode d 
mt cc; //character code 
char *optr; //=>1st raster line 
int rw //raster line width 
int bytes; //bytes per raster line 
Bt ik; //left kern 
Wat rft; //rows from too 
int drci //data row count 


K; s t[1-28]; 
struct cnode *a, *otr; 
struct cnode *fchar[(128): 


main(argc, argv) 


EU argc, char **arov; { 

if (argc < 2) exit(); 

else if ((ip=ooen(arov[1),0)) < 0) { 
printf ("cannot oven %s",argvl[i)); exit(); 

} 

utt); 


while (getin()) out!in()7 
poumtf("closedNn"); exit(); 


} 
init() { 
register int 1; 
if CColdevzooen("/dev/rvo",1)) « 0) ( 


orintf("cannot open plotter"); exit(); 
} 
for(i=071i<128s7i1++) fchar [i] = 0; 
n = fmarks for(120;1<128;1++) *n+t = sl: 
MO cfront("SAILIO")- //default font 
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) 


Nice tin) { //rtn 1 if there's a line to 
//be plotted;otherwise, 0 
char k; 
t = tbuf; 
k = 05 
while ( ((xt = getch()) != 
Err) í 
ieee k++f == 89 ) ( *t = "Nn'; break; ) 
ttti 
) 
EON *t == '\0' ) return(0); 
else return(1); 


NAT) SR 


) 


Bank) 1 //plot as much as can fit in PAGEWTH 
register int hei; 
roww = 0; pagewth = 216; 
moe Ss! ==> 0) sl = 24; 


t = tbuf p - pbuf; 

ute (t 1= '\n') d 
if (*t == esc) { if (eschar()) break; } 
if (filchar()) break; 


Des “An”; 
if (t == tbuf) return; //null line in input file 
check for room 
if (nroom(ht+(ht/10+1))) pagebreak(); 
for(h=0;h<ht;h++) í 
ol = &plbuf (sl); *p] = 0; openbits = 8; 
Ber = feharl#(p = pbuf)), 
while (*xo $= '\n') { 
NOAA PS 
if (ptr-»drc) ( 
To aeptre»m"ftoss& h «€ ptre»rcfttptr-2»drc) 
i = h - ptr-»rft; 
lo = ptr->optr * i*ptr-»bytes; 
while(r » 0) ( 
shift(); r =- 8; } 
} else { 
lo = zero; 
while(r > 0) { 
shift)? r == BZ) 
) 
} else { 
lp = zero, 
Whine Gf > 90) { 
shift(); r == 87} 


ptr * fcharí(***p]; 


) 
//olot one row raster line 
write(bldev,olouf,roof(roww*sl*8)); 
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//plot some white space 
for(hz0;h « ht/10*1;h**) 
write(oldev,zero,2); 
linecount =+ ht+(ht/10+1); 
sl = 0; 
} 


eschar() { //esc= soecial characters 
int je hi, space; 
char tt, *ktb, kte; 
if (t == tbuf) { 
If ((c Z xzırr) == '#') { // font change 
f 


n = fontname; ttt; 
while ( (*n kt++) l3 d t= “An” ) 
ntt; 
tt = *n; 
*n = 'N0'!; cfont(fontname); 
Nn tte au Nm ee, (xt == 'Nn')) { 
t = tbuf; returní(1); ) 


) else if (c 's') { //need space 
n = ochars ttt, 


pase == '0') 2 8 : 10 5; 
while (num(*n = *r)) ( 

ntt; ttt; ) 
kn 2 '\0'; 


hue octiochoar) * ht ; 
if (nroom(hi)) ( 
pagebreak(); t - tbuf; return(1):; ) 
for (iz0;i€hi71**) 
write(oldev,zerorc); 


linecount =+ hi 5; 


t - tbuf; return(1); 
} else if (ce == '!o')t //no ascii eauivalent 
n = ochars ttt; 
base = (*t == '0') ? 8 : 10; 
while (nun( (kn = *t)) ) 


mtti ttt; } 
xn 2 'NO'; t--; 
ee = €€1 = octíochar)) > -1 š& 1 < 128 ) 
: blank; 
) else if (c == 'c') ( //center this line 
while (*++t == * ') ; 


ev 


tb = t ; 

while (x++t != 'Nn') ; 
while (*--t == ' ') ; 

te - t; space = O0; 
for(tztb; t<zte; t++) { 


1f (hdr[x*tx2)) 
space z* hdrí(*xt*x2] & 0377; 


else if (har[040x2]) { 
Space =+ hdrí040*2) & 0377; 
et = 040; 

} else { 


printf("input error-- "); 
printf("Ntundefined character... XcNn" ,*t); 
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frushh () 7 


} 
} 
Space = (spaceZ8 zz 0) ? space/8 : soace/8*1; 
sl = 132 - space/2; 
if (sl « 24) ( 
Brimntfl"ıneut error-- "); 
pr nti (UNttoormany characters to centerNn"); 
flushh(); 
} 
for(i=0;i<sl;i+*+) olbufli] = 0; 
m= tb; 
meelse if (c == 'p') { 
if ( (c = *++t) == 'g') (//pgbreak 
pagebreak(); t = tbuf; return(1); ) 
t t 


else if (c == 'p') (//paragraph 
for(1z0;i1«€«ht;1**) 
write(pldev,zero,2); 
s} = 24 + (24 * ht/120); 
pagewth = oagewth = (24 * ht/120); 
t - tbuf; return(1); 
) 
else ( 
Di invalid character folowing *J; 
GE E SIS 
exit); 
} 
+ else { 
meet i imout error= "); 
Dart Ntinvalid escape character... XC",c); 
flushh (9; 


} 
) else if (Ce = *++t) == 'o*') { //no aseii equiv 
n Z= ochar; ttt; 
mase = (*t == '0') 7? 8B : 10 ; 
while (num((*n = *t)) ) 


ntt; ttt; >) 
'N0O'; t--; 
G@G@i-cetvocnar)) > =1 8% i < 128) 7 1 
: blanki 
} else if (c == 'f') {//no font chg allowed here 
` printf("chanoe fonts at line head only "); 
flushh(); 
) else { 
Dpintf("input erron= "); 
printf("\tinvalid escape character ( Xc )\n",c); 
printf("Ntembedced within text...\n"); 
flushh(); 


*n 
ar 


} 
return(9); 
) 


int char () { //move chars from tbuf to pbuf until 


//PAGEWTH exceeded, replace nonexistent 
//chars with blank; Ow, exit 
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register int iż} 
infont = xt; 
pte Chdr linfontxe] ) { 
ime tehartLinfont}] == 
getdef(); 
if Crowwtas>rw <= pagewth*8) 
FOWW =+ a->rw; 
else (xp = 'Nn'!; return(1);) 
) else if (rowwtfchartinfont]-»rw «2 pagewthx8) 
roww =+ fcharlinfontl->rw? 
else (*p = '\n'; return(1);)} 


0) ( 


} else if (hadrl(infont=blank)x#2]) { 
kt = blank; 
if (fcharlinfont] == 0) { 


getdef(); 
if (roww+ta=>rw <= pagewth*8) 
FOWW -* a-^5rw; 
else {xo 2 'An'; return(1);) 
) else if Crowwtfcharlinfont]=>rw <= pagewth*8) 
roww =+ fcharlinfont] ->rw,; 
else (*p = 'An'; returní(1);) 


} else { 
prantf("character "430° not defined in %s",*t, 
header); 
milushh(); 
} 
xott = *t++;5 
return(0); 
} 
efont(g) 
char *a; { //a points to new font name 
register int 1; 
K fp) ( 
printf("closedNn"); close(fo); 
) 
for(iz16;(headerí[il] = xat+) $= "NOI ++) ; 
if((Cfozobpen(header,0)) « 0) ( 
orintf ("cannot open Xs",header); exit); 
) 
printf("Zs oocened...." header); 
dealloc(nodeptr); nodeptr = 0; 
forí1=0;1<1285i++) fcharli] = 0; 
read(fp,hdr,512); read(fp,&ht,o); 
read(fo,rmaxwre); read(fp,&lht,2): 
if(check()) { 
meintt("%s bad font file",header); 
exit(); 
} 
) 


dealloc(x) 
int x; { //free in reverse order 
// of allocation 
while (x) 
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if(fcharlfmark l--x]l] ->optr) 
free(fchartfmark[x]]1->optr); 
) 


pagebreak() { //page eject 
int 1; 
char erri 
err - cvers(pldev,020); 


if ( err == -1 ) 4 
printf("invalid filedes in pagebreak\n"); 
exit(); 
for (1=0;1<TOP;i++) urite(pldev,zero,2); 
linecount = TOP; 
} 
getdef() { 
jnt blkc,bytc;/ register it; 
blkc = (hdrlinfont*2)80177400) >> 8 
bike =% 0377; 
bytc 7 hdrí[infont*2*11]; 
ime] kc) { 
seek(fp,blkc,3); seek(fp,bytc,1); ) 
else seek(fp,bytc,0); 
getnode(); 
a-»cc = jinfont; 
read(fp,&a->rw,2); 
read(fp,&a-»1k,2); read(fp,&a-»rft,2); 
read(fp,&a-»drc,2O); 
a=->bytes = (a->rw%8 == 0) ? a->rw/8 : a->rw/8+1; 
if(a-»drc) ( 
if((iza-»optrzalloc(a-»drc*a-»bytes)) « 0) í 
deallocínodeptr-1); 
getdef(); return; 
) 
read(fo,a-»optr,a-»drc*a-»bytes); 
} 
= 0; 
forli=071<nodeptr7itt) { 
if€fmarkfil == infont) in++; 
) 
if(in == 0) fmark(nodeptr-1)]) = infont; 
) 
qetnode ( ) ( 
f nodeptr > 127) í 
printf("overflon"); exit();} 
a = tcharlinfont) = 2clist [nodeptr+tt), 
a->optr = 0; 
} 


mmc roof(x) 


Unt x; ( 
NE 3 -z 0) ? x/8 *: x/8 + 1; 
Ne == 0) return(x); 
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if(x == 263) return(262); 
= 0; 


k++p] return(++x); 
} 
int check() { 
meant < O !! maxw < 0 '' Jht < O '!: 
ht > 120 i;i maxw > 256 !! lht > ht) return(1); 
else return(0); 
} 


int nroom(x) 
int x; 
if(linecount + x > PAGEHT) return(1); 
else return(0); 


) 
Eh ft() ( 
mat to? 
NEUES *|p; tb -& 0577; tb =<< ocenbits; 
noun » 7) ( 
kol++ =) (tb & 0177400) >> 8; 
ES Kol =! tb & 03577; 
} else { 
if(r <z openbits) { 
ie] cto & 0177400) >> 85 
openbits =" pr; 
} else { 
Zar (tb K 0177800) >> 8; 
*o] =& O; *p)] =i tb & 0577; 
openpits = 8-(r-openbits); 
} 
} 
lot*; 
) 
ut oct(cp) 
char *cp; { 
Int i i = Q; 


base = (*cp == '0') ? B : 10; 
while (num(*cp) 88 *cp != '\0') 
i Z3 3*base + *cp++ - '0'; 

return(1); 


) 
int num(cp) 
char cp: ( 
if (base Omen Ceo ee 90" Se cp <= 191] returnCl); 


EN ose == 8 22 (co >= '0' && cp «s '7')) return(1); 
if (ep == '8' ¡1 cp == '9') ` 

printf("input errors" "); 

printf("\timproper octal number...%4d",cp); 


ue (*t 1= 'An') outchar(*t+tr); 
ex1t(); 
} 


else return(0); 


p» 





) 


getch() { 
char ttrs; 
s = read(ip-,&tt,1); 
if (s == 0 ) return('N0'); 
else return(tt); 
) 


flushh() ( //print bad input line and exit 


while (*t ¿2 'An') putcharí(xt++); 
exit(); 
} 
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APPENDIEX Er HERSHEY FONTS AVAILABLE 


me fonts listea below are currently available on 


Y o. fonts.0l1/hershey" in vector form. They are used in this 


form by 


"drawhf", and they are converted to dot matrix form 


from vectors by "makehf". The {14 fonts available are : 


HSR 


HSG 


HSS 


HDR 


HCR 


HCG 


HCS 


mel 


HCC 


HTR 


HT I 


HGE 


HGG 


HGI 


Simolex Roman 


Greek 
b Scot 
Duplex Roman 
Complex Roman 
Greek 
Se DE 
>> Italic 
(pilli 
Triolex Roman 

ë Italic 
Gothic Enolish 


German 


H 


Leom an 


The following paces provide a display of each font and 


its character set. The last oage of this appendix contains 


a auotation written in each font for comparison and contrast 


of the fonts. 
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t { ZÁXMAN 


7S 4b douw] yltys Japoqe >i[ |JZAXMANLSYUOdONW IM 
CHDAHADAVO¿<=>* 68493 VE210/"— tal) 8% Ai 


OCUJH 


tlizfñirman¿s 


¿bdouuqgat14ybf2ap9qDL | |IZAXMANLISAOTONNMTAS 
IH243GQ2HYOLC« —»2::684298TY£72IO/^ —' t-«(),79?220 Zi 


OGIOH 


ls 207 
MaLodguworanya1UuLAz0X% gv >1[]Zbh=ZULLZd@LIONNV 
MIHI® YVX9V®8&<=>::68L9T7FE210/ "+ ORAL i 


0c90H 


t[j£naAroduonHnioirn 


xA bəmoesfrcd [SH ALOdIOHNI HHX IO HH VITI ¿ Eq 
01::681299F78210/ —- mx ),MIZ$hhi ejgumegkßolI® 


O0SIIH 


Hershey Font Examples 


FIGURE Eel. 
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gys 
cararanijibdoun]gfhig64sgogvC (5x SS qi Lm O36 OG d$ G1G1G 
SSSSCAKHITITRE=':EELISVETIO/ +), Ri 


De FEH 


zhxmuanjzabdoumpylhiigfi 33e3quz Bx ot pum mes dp d o N 
Wr prse 9s $3 609 Yco--:B5BgBA295prEZ2IlU/ —‘+«(), 84.1 


OSH 


'"ZAxw^nj4sabdouuupyiliu64yepoqpzAXMADn 1SMO0d 
ON DIfriH9433298Vé,-:68/9Gv€7Z10/^ — -«().79$..i 


OSHUH 


tha monpouby ou rupyhyb op Fo EREMANEEEEBONW 
FNECHFREPCALGH ES ="-CGELIGHEZLOS —'t«().? Sui 


OcSOH 


(Continued) 


FIGURE. E-=1. 
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j Ehæmangsrbdou ugyhybjopogo E ALNMANLITO EJO 
IIe EE IA we DÉI OC KEES LD AT Let le 


03SSH 


|zAx manysabdou wıyfiybJsp>qgPZAXMANLSYOG 
ONAWTMPIHOJ3d28vée-t:69g/9SvcZlO/^ — *()79$ $i 


OCH SH 


I2/3'0n 10d gu oATINv o1 03 9Xg m7 h-ULLZ dO 
UONNVMIH Jb SVX SVE =2:68L9GHEZLOS  — 5 +40) $i 


OCDSH 


fh 


vomonteibdonutglttbtägigpepsOADOerOOOUlOI! 
Y1DIUABIADBODABE=“68/06vE210/*-"++(). 84.1 


Oc IH 


(Continued) 


EIGUDRESE-1. 
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zAxmanys 1b dou wyyltysjapoaqezZ AXMANLSUOd 
ONNWTYVYFIHD52:3:Hq O8V¿ =::68¿9CGr18210/ `— ++](),%98..1 


OcULH 


iz fux 
manysabdouugylryb[ap2gRwyZAXMANLSYUOIONW 
THPIHDATIIGVV 6 = G6 ELIGKESLOS ++). Phi 


OC 1LH 


(Continued) 
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Jo xymads 07 ‘PINS SNA ON IYI DUOI SPY IUU aug 
vbu} hupu je spoedv ej 'prov vnvyom wwj NUD vou "at wu > 
Duiy} Aupw JO YDadSs o) 'pibs SNAIDM SU} IWO Soy 3LUN Sy] 
L harri do »o310 0L *9oT100 onQgNvo 3U. *arloX ox arlı 34] 
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bang Auvau Je gom = Pe csr Pa uos RET A 
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"uL fo xoads 02 'pvos snagom AY? ‘AWULOD SDY IU] AUT 
Tr do 2030 OL ‘9700 0advo sU. '3rloX oU smh.L 3l, 
Ga OL "UR oAdiIre 2XXd "ano  oOex SWML 9X], 


Hershey Font Comparisons 


FI 6 PET =o, 
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APPENDIX F. FONT/CHARACTER DIMENSIONS 


Previous character Next character 
ends here | —————— — begins here 
left character right 


e kern »|e— yidth —>|e kern >» 


Logical top 


[ 


rous from top 


2 








base- 
line 
| 
data row count 
height 
+ 
— raster Width ——ə—— 
Logical bottom 
FIGURE Fel. Font dimensions 
This fiaure, taken from Reference 4, displays the di- 


mensions of fonts and characters that must be taken into ac- 


count when setting tyce by comouter. 


The most important characteristics of a font are its 
height, the width of its widest character, and its logical 


height. The values for height and logical height remain con- 


3 





Brant throughout a font and are the real measure of compati- 
bility among fonts, i.e., in creating a new font, characters 
from fonts of differing heights or logical heights cannot be 


mixed. 


BramoeGter wietiy faster width; and left kern are the 
Eharacteristic dimensions of characters. The right kern is 
not listed, but may be computed if desine. There are two 
additional dimensions which play an important part in the 
stored representation of the digitized character. These are 
rows~from=toop(rft), a count of the blank raster lines from 
ErNogica! too of the character to the first non-blank row, 
Engothe data-row-count(drc), a count of the number of raster 
lines that contain character information. The font height 
numus the sum of rft olus drc EE the number of blank 


lines that must be added after the last nonblank raster line 


to complete the character. 


Another important characteristic of a font is the base- 
line. This is the distance from the logical top of the 
character to the imaginary line on which the row of charac- 
ters rests, although some characters may extend below this 
line. All characters in a given font file have the same 


height and baseline. 


"Kerning" is a characteristic which occurs only when a 
Nue has a non-zero left or right kern, so that the charac- 
ter width is smaller than the raster width. Kerning allows 


the Computer to set some Characters closer to others to 
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avoid leaving what appears to be too much white space 
between characters; of course, the comouter must first make 
some checks to ensure that no character overlays occur. 
Ahen setting a kerned font, the typesetting proaqram wil] 
space ahead according to the character width and not the 
raster width. Kerning occurs in only two of the SAIL fonts. 
Neither the current version of the virtual typesetter nor 
the typesetting program described in this guide deal with 
kerning, but font files and programs provide a place for the 
left kern so that the concept may be fully implemented later 


without reorganizing font file structure. 
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EE STE T FONTS 


A. 'SAIL' FONTS AVAILABLE 


All of the digitized fonts currently available are list- 
ed below by typeface and style. Each of these is located on 


directory "/.fonts.0l/font" : 


B0J8 == 8 point Bodoni Mathematical 


BORIO == 10 > n Roman 
Belg == 10 = i Italic 
WTI) == 10 S 5 Mathematical 
BDRIOX -- 10 " E Bold 

En Uus == 12 = š Roman 
mie -- 12 Š : Italic 
30812 = f i s Bold 

BORIS == 15 S i Roman 
Boris =-= 15 = S a MS 
mores == 25 D i Roman 

NONS 2. u$ E Nonie Roman 

NONSI  -- 10 N: Ü Italic 
NONSB  -- 10 s: j Bold 

DENSEI -- 10 N z Bold Italic 
NONM EIU 9 : Roman 

NONMI  -- 12 È ° Italic 
NONMR  -- 12 B = Bold 
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NONMBI 
NONL 
NONLI 
NONLB 
NONLBI 
SAILIO 
SHD15 
SIGN22 
SIGN41 
GRFX10 
GRFX14 
MATH10 
MATH13 
MATHIS 
MATH20 


MATH21 


EXAIL' 


-- 1? 
-- 14 
-- 14 
-- 14 
-- 14 
-- 10 
-- 15 
-- 22 
-- d| 
-- 10 


-- 14 


== 0 


point Nonie Bold italic 
ú S Homan 
i ü Italic 
" $ Bold 
S š Bola Italic 
z Delegate (similar to IBM Selectric) 
= Shadow 
S Sign 
» Sign 
re Graphics 
» Graohics 
= Math 
2 Math 
S Math 
2 Math 
ps Math 


CHARACTER CODES 


The SAIL character set and corresponding octal codes are 


found on 


blank 


the 


next page, with the ASCII character set. A 


indicates that mo character exists for that code. 


TES 





000 
010 
020 
030 
040 
050 
060 
070 
100 
110 
120 
130 
140 
150 
160 
170 


000 
010 
020 
030 
040 
050 
060 
070 
100 
110 
120 
120 
130 
140 
150 
160 


= 
= cS 
rg ES 


- X "UJ E ven OO CH Un 


b4 "J — 


0 
NUL 

BS 
DLE 
CAN 


zs oe TO CL c0» 00 CO 


e OC 


1 2 
d A 
HT DE 
> n 
= x 
! " 
) * 
1 2 
9 : 
A B 
I J 
Q R 
D Z 
a b 
i j 
q T 
y Z 
FIGURE G-1 
1 2 
SOH STX 
HT NL 
DC1 DC2 
EM SUB 
t e" 
) & 
jt 2 
9 : 
A B 
[ J 
Q R 
Y Z 
a b 
2 ) 
q r 
y Z 


FIGURE G-2. ASCII Character Set 


SAO NA A 


SAIL Character Set 


3 
ETX 

VT 
DC3 


tri 
AU MAGMA”? Wt HM 
C) 
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APPENDIX H. FINDING A FONT, 


A. FONT LOCATION 


All of the fonts and font manipulation routines are lo- 
Bated on a mountable file called tont]. To access this 
file, the following procedure is necessary after logging in: 

"o fsmoumtofonts.0! 
/dev/fonts.01 
soc! 3333 
files bbbb 
lərge cccc 
direc dddd 
indir eeee 
used ffff 
free ggga 
/dev/fonts.01 
/dev/fonts.01 mounted to directory /.fonts.01 

% 

A complete description of the directory configuration is 
given on the next page. Detailed explanations of the font 
editor "edf" and the Hershey conversion program "makehf" 
are given in Appendix A and in Chapter III respectively; 
brief descriptions of these programs are also located with 
the program listings in Appendixes À and B respectively. 
The source programs» a copy of "A User's Guide For Font 
Manipulation at the Naval Postaraduate School", and instruc- 
gıons for acquiring both are contained on "fonts.02", anoth- 


er mountable file which is mounted and accessed in the same 


manner as "fonts.01", 
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mee MOUNTABLE FILE DESCRIPTION 


The following diagrams describe the directory configura- 
K S Of "tonts.01” and "fonts.02". A "d" in a branch of 


the tree indicates that the next name is a directory. 


lee Fonts.01 


/.fonts.01 


' d d d d 
ed f ' ' i ' 
HFONT font hershey httoo ls sail 
makeh f 
orfont SAIL Hershey drawhf transfile 
signmkr fonts fonts envrt llStfont 
mkvec 


The file called "HFONT" normally contains the most 
recently created M Hershey font, unless it was specifically 
written to another directory. This process is explained in 
Appendix B. All other proaram names that pertain to Hershey 
fonts are explained elsewhere in this report. "Transfile" 
and "listfont" pertain to the conversion of SAIL fonts for 


NPS use and are discussed in Reference 6. 
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SONES .02 


IONES OE 


d d d d 
i i ' ' 
hershey common sail 
makehf.c Sigamkr.c transfile.c | 
drawhf.c Seon t E Jistfoent.c i 
eavet .c pora e ' 
mkvec.c ' 
userman 


userquide 
userenclosures 


printman 


To obtain a personal cooy of the User's Guide, mount 
both fonts," and Ponts 02. and type "sh 
/.fonts.0e/userman/printman". The manual will be directed 
mom the line printer and the figures will be olotted on the 


VERSATEC plotter/printer. 
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20, 


ll. 


12. 


p. 


14, 
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